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13.  ABSTRACT  (Mtmmum  200 worrit) 

In  1990,  individuals  at  the  U.S.  Army  War  College  (USAWC)  saw  the  need  for  a 
tool  to  provide  leadership  developmental  feedback  to  incoming  students  to  help  with 
planning  for  the  resident  year  and  progress  following  that  year.  The  U.S.  Army 
Research  Institute  for  the  Behavioral  and  Social  Sciences  (ARI)  developed  and  pilot- 
tested  the  Strategic  Leader  Development  Inventory  (SLDI)  to  satisfy  that  need.  As 
a  part  of  the  concept,  an  automated  feedback  printing  program  was  developed  to 
enable  user  organizations  to  print  graphic  feedback  that  facilitates  student  inter¬ 
pretation  of  SLDI  scale  scores.  That  program  was  developed  for  the  academic  year 
(AY)  91-92  pilot  test  and  was  revised  for  the  academic  year  92-93  field  test  of  the 
SLDI. 

The  AY92-93  version  of  the  FeedBack  program  produced  reports  for  a  fixed  set  of 
questions  and  evaluation  factors.  If  any  changes  were  made  in  the  SLDI,  the  program 
had  to  be  rewritten.  The  AY93-94  upgraded  version  of  the  FeedBack  program  is 
flexible.  It  allows  the  survey  questions  and  the  evaluation  factors  to  be  redefined 
through  the  use  of  a  look-up  table,  thereby  enabling  continuous  user  product 
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improvement  over  time,  and  adaptation  of  the  SLDI  to  different  subject 
populations  as  needed.  This  report  contains  the  source  code  for  the  FeedBack 
program.  A  user’s  guide.  Micro  Computer  FeedBack  Program  for  the  Strategic 
Leader  Development  Inventory:  User’s  Guide,  has  been  published  separately. 
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As  a  member  of  the  Largo  High  School  Mathematics  Department,  I  participated  in  the 
U.S.  Army  Summer  Associateship  Program  for  High  School  Science  and  Mathematics 
Faculty.  My  summer  associateship  was  supported  by  the  U.S.  Army  Research  Institute  for  the 
Behavioral  and  Social  Sciences,  Strategic  Leadership  Technical  Area,  T.  O.  Jacobs,  Chief, 
under  the  auspices  of  the  U.S.  Army  Research  Office  Scientific  Services  Program 
administered  by  Battelle. 

I  wish  to  express  my  appreciation  to  T.  Owen  Jacobs  and  Steven  R.  Stewart  for  their 
continued  assistance  and  support  in  creating  the  Feed  Back  micro  computer  program.  They 
provided  me  with  the  insights,  responsibility,  and  flexibility  to  complete  my  assignment. 


The  Strategic  Leader  Development  Inventory  (SLDI)  is  being  developed  by  the  U.S. 
Army  Research  Institute  for  the  Behavioral  and  Social  Sciences  (ARI),  Strategic  Leadership 
Technical  Area  (SLTA),  in  collaboration  with  the  U.S.  Army  War  College  (USAWC)  and  the 
Industrial  College  of  the  Armed  Forces  (ICAF).  The  SLDI  allows  the  student  to  assess 
himself/herself  and  to  obtain  assessments  from  former  superiors,  peers,  and  subordinates  on  a 
number  of  attributes  important  for  effective  strategic  leader  performance. 

In  addition  to  completing  a  self-assessment  form,  students  select  as  many  as  three 
superiors,  three  peers,  and  four  subordinates  to  provide  assessments.  After  all  the  surveys  are 
completed,  the  answers  are  scanned  into  an  ASCII  text  file.  The  Feed  Back  micro  computer 
program  uses  the  ASCII  text  files  to  print  a  graphic  report  for  each  participants  that 
summarizes  the  results  from  all  sources.  The  participants  can  use  this  report  to  compare  their 
self-descriptions  with  those  of  fellow  students  and  with  those  provided  by  former  peers, 
subordinates,  and  superiors. 

In  addition  to  the  FeedBack  graphic  reports,  each  participant  receives  a  written 
description  of  the  research  that  led  to  development  of  the  SLDI  and  the  items  defining  each  of 
the  factors. 

Because  of  time  limitations,  the  academic  year  92-93  version  of  the  FeedBack  program 
produced  reports  for  a  static  set  of  predefined  factors.  Alteration  of  any  of  the  SLDI  factors 
required  that  the  FeedBack  computer  program  be  rewritten.  It  was  known  at  the  outset  that 
"tailorable"  feedback  would  be  necessary  for  a  final  operational  system,  and  that  was  a 
primary  goal  for  revision  of  the  program.  The  program  was  rewritten  to  allow  the  factors  to 
be  defined  using  a  look-up  table  and  now  is  substantially  more  flexible  than  the  previous 
version.  In  addition,  it  will  now  print  on  any  Hewlet  Packard  LaserJet  printer,  though  the  font 
derivation  mechanism  is  different  among  the  various  generations  of  these  printers. 

This  report  contains  the  source  code  for  the  FeedBack  program.  It  exists  in  compiled 
form  and  is  available  to  qualified  requesters  from  the  U.S.  Army  Research  Institute  for  the 
Behavioral  and  Social  Sciences.  A  user’s  guide,  Micro  Computer  FeedBack  Program  for  the 
Strategic  Leader  Development  Inventory:  User’s  Guide,  has  been  published  separately  and  is 
available  to  qualified  requestors  through  the  Defense  Technical  Information  Center. 
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jFaadBack.ASM  Sumr  1993  JaMi  K.  Hopkins 

! A  program  to  print  Strategic  Leader  Development  Inventory  faadback  forms. 
) 

.MODEL  sasll 
I 

STACK8IZH  HQD  3328 

; 3328  •  up  to  2304  bytss  of  hasp  spaca  for  CFG  data 

; and  not  lass  than  1024  for  stack  spaca. 

.STACK  STACKSIZB 
t 


.DATA 


J - HP  PCL 

strings  usad  to  position  a  point  on  tha  graph 

NextUn 

db 

32, lBhr ' Ak2S' , lBh, ' Sa+19C' , lBh, ' &kOS' , 0 

;«paca+19  comp,  spacas 

NaxtTn 

db 

lBh, ' Rk2S' , lBh, ' &a+2C' , lBh, ' AkOS' , 0 

; 2  comprassad  spacas 

HalfSp 

db 

lBh, ' ak2S' , lBh, ' Aa+lC' , lBh, ' akOS' , 0 

}1  comprassad  spacas 

BackSp 

db 

lBh, ' Ak2S' ,lBh, 'Aa-lC' ,  lBh, 'AkOS' ,0 

; 1  comprassad  spacas 

FullBk 

db 

lBh, 'Ak2S' ,lBh, 'aa-2C' ,lBh, 'AkOS' ,0 

;1  comprassad  spacas 

1 

; - - - -  HP  PCL  strings  usad  by  printing  procaduras 

Hadar 

db 

lBh, ' (S3BSTRATHGZC  LHADHR  DKVBLOPMKNT 

INVENTORY' , 0 

t 

IDstr 

db 

'ID:  ' 

ID 

db 

20  DUP  (32)  ,0 

t 

Post 

db 

'  |  ' , lBh, ' &k2S' , lBh, ' &S-1C' , lBh, ' Ak0SAQ' 

db 

lBh, ' Ak2S' , lBh, ' aa-lC' , lBh, ' &k0S- ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS- ' 

db 

'Balow  Avarage  Battar  Than  Most  Tha  Bast  ' 

db 

lBh, ' ak2S' , lBh, ' as- 1C' , lBh, ' akOS- ' 

db 

lBh, ' ak2S' , lBh, ' aa- 1C' , lBh, ' akOS- ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS^P' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS | ' , 0 

NagT 

db 

' | ' , lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' ak0SAQ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS- ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS- ' 

db 

' Navar  Occasionally 

Always  ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS- ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS- ' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' ak0S*P' 

db 

lBh, ' ak2S' , lBh, ' aa-lC' , lBh, ' akOS | ' , 0 

> 

DTstr 

db 

'Scorad:  ' 

Data 

db 

'07/24/92', 0 

;fila  data 

t 

DZstr 

db 

' FACTORS : ' , lBh, ' (sOB' , 0 

; unBold ,  BndS tMarkar 

1 

FFaad 

db 

OCh,  0 

; formfeed  string 

Madian 

db 

186,0 

j  179  »  *11  - 

Laft 

db 

179,0 

I 179  *  •  * 

Right 

db 

179,0 

>179  -  ■  ■ 

TanLt 

db 

177,0 

1 177  - 

TanDk 

db 

178,0 

;  178  -  ■i" 

DntLT 

db 

13  DUP  (177), 0 

OntDk 

db 

13  DUP  (178), 0 

BOH 

db 

lBh, ' (s3B' ,0 

jbold  ON 

BOFF 

db 

lBh, ' (SOB' ,0 

;bold  OFF 

Othar 

db 

lBh, ' (s3B',6,lBh, ' (s0B',0 

;bold  OH, "*F", bold  OFF 

Point 

db 

lBh, ' (s3B' , 4 , lBh, ' (s0B',0 

;bold  OH, "AD", bold  OFF 

A-2 


/ ----An 

HP 

PCL  string  used  by  Initialise  HP  procedure 

Xnit 

db 

lBh, 'S' 

i reset  printer 

db 

lBh, ' 6110' 

/ landscape 

db 

lBh, '6k0S' 

l 10.0  cpi 

db 

lBh, ' (10U' 

/ PC-8  symbol  set 

db 

lBh, ' (s0P',0 

; Fixed  spacing 

; - -An 

HP 

PCL  string  used  by  Restore  HP  procedure 

Rest 

db 

lBh, ' 6100' 

/portrait 

db 

lBh, ' (8U' 

/ Roman-8  symbol  set 

db 

lBh, ' (slP' 

; Proportional  spacing 

db 

lBh, 'R' 

/ reset  printer 

db 

lAh,  0 

;end  of  file  marker 

; - -An 

HP 

PCL 

string  used  by  HPOOTOYX  procedure 

loc 

db 

lBh, '6a' 

;set  hp  laser  to 

col 

dw 

0 

/  ASC  II  column  number 

db 

'C' ,lBh, '6a' 

;set  hp  laser  to 

row 

dw 

0 

; ASC  II  row  number 

db 

'R',0 

;end  of  string  marker 

j - An 

HP 

PCL 

string  for  drawing  scale  and  top  line  of 

factor  box. 

Top 

db 

lBh,'6£0S  Raw  Scores:  1' 

; starting  Push 

; ticks  and  "2a 

db  lBh, ' 6k2S  ---------  ' ,lBh,'&kOS'  /compressed  mods 

db  lBh, ' ftfOS' , OAh, 194, lBh, ' 6flS2'  ; top  tick  mark 


; ticks  and  "3" 

db  lBh, '6k2S  ---------  ',lBh, '&kOS'  ; compressed  mode 

db  lBh, '6fOS' , 0Ah,194,lBh, '6flS3'  ; top  tick  mark 

/ticks  and  a4a 

db  lBh, ' &k2S  ---------  ',lBh,'6kOS'  ; compressed  mode 

db  lBh, ' tf  OS' , OAh, 194, lBh, ' 6flS4'  ; top  tick  mark 

7  ticks  md  *5* 

db  lBh, ' &k2S  ---------  ' , lBh, ' &kOS5 '  ; compress  and  a5a 

db  lBh, 'sflS' , OAh  ; ending  Pop  +  line  feed  =  next  line 

; top  line 

db  218,13  DUP  (196) ,194,49  DUP  (196), 191,0  ;BndO£String 

; - An  HP  PCL  string  £or  drawing  scale  ticks  and  bottom  line  o£  factor  box. 


Bot 

db 

lBh, ' 6f OS 

/ 

/ starting  Push 

db 

lBh, ' 6k2S 

' ,lBh, '6k0S' 

; compressed  mode 

db 

193 

/bottom  tick  mark 

db 

lBh, ' 6k2S 

' ,lBh, '6k0S' 

/compressed  mode 

db 

193 

/bottom  tick  mark 

db 

lBh, ' 6k2S 

' ,lBh, '6k0S' 

/compressed  mode 

db 

193 

/bottom  tick  mark 

db 

lBh, '6flS' 

/ending  Pop 

; bot tom  line 

db 

192,13  DUP  (196), 193,  49  DUP  (196), 217,0 

/EndOf String 

/---  HP 

PCL  strings  to  used  to  draw  one  line  of  the  factor 

box. 

self 

db 

179,'  Self 

' , 179, lBh, ' 6a+49C' ,179,0 

/ EndOf String 

peer 

db 

179,'  Peers 

',179, lBh, ' 6a+49C' ,179,0 

; EndOf String 

super 

db 

179,'  Superiors 

' ,179, lBh, '6S+49C' ,179,0 

/EndOf String 

subor 

db 

179, 'Subordinates 

' , 179, lBh, ' 6a+49C' ,179,0 

/EndOf String 

; - -An 

HP 

PCL  string  to  draw  a  information  box  and  the  present  cursor  position 

Inform 

db 

lBh,'6f OS' ,218,63 

DUP  (196), 191 

db 

lBh, ' 6flS ' , OAh 

/next  line 

A- 3 


db  IBh, ' Af  08' ,179 

db  '  aD  ■  Self  ‘F  -  Others  |  •  25%  or  75%  ||  -  50%  $  -  Rang* 


db 

179, IBh, 'Afl8',0Ah 

;next  line 

db 

192,  63  DOP  (196), 217,0 

iBndOf String  Barker 

.CODS 

7 

Is  the  data  file  open,  unr anted,  and  ID  >  0 

7 

Input  ■ 

Nona 

/ 

Output 

■  Carry  flag  if  Not  Ready. 

PROC 

IS  RANK 
POSH 

AX 

leave  registers 

POSH 

BX 

POSH 

CX 

POSH 

DX 

7 - 

-ia  data 

file  open? 

MOV 

BX, [DATHd] 

;get  file  handle 

CMP 

BX,  0 

tie  a  file  open? 

JNZ 

RX1 

CALL 

FILS  BRR 

JMP 

SHORT  RK4 

percentiles  in  the 

rank  file? 

1  -  «  -  -  - 

RK1 : 

CMP 

WORD  PTR  [RNXHd] , 0 

7 are  percentiles  set? 

JZ 

RK5 

CALL 

PBRCT  BRR 

; Rerank  file  ? 

JNC 

RK5 

i carry  flag  ■  NO 

RK4 : 

STC 

iset  error  flag 

RK5: 

POP 

DX 

» restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

BNDP 

7 

ISRANK 

7 

; 

input  ■ 

none 

; 

Output 

■  carry  flag  ■  NO 

PROC 

PBRCT  ERR 

CALL 

CLBAR  MBSSAOB 

MOV 

AL, [Warning] 

; warning  color 

MOV 

CL, [Color] 

;aave  original  color 

MOV 

[Color] , AL 

;set  color 

MOV 

AX, 020Bh 

; row  3 /Col  8 

CALL 

QOTOYX 

;set  cursor 

CALL 

CSTR  OOT 

; display  warning 

db 

'  This  data  file  1b 

already  ranked. 

0 

db 

'Rank  it  again?  Y/ [N]  ',0 

MOV 

[Color] ,CL 

i restore  original  color 

CALL 

HIDB  CUR 

CALL 

BRR  SOUND 

PXR1: 

CALL 

GST  CHAR 

AMD 

AL,5Ph 

j turn  off  bits  6  &  8 

CMP 

AL, 'N' 

j is  it  No? 

JZ 

PBR3 

; if  yes  exit 

CMP 

AL, ODh 

7  is  it  <Bnter>? 

JZ 

PBR3 

7  if  not  continue 

CMP 

AL, 'Y' 

7  is  it  Yes? 

JNZ 

PBR1 

7  if  not  get  another 

PSR2: 

CLC 

JMP 

SHORT  PBR4 

PSR3 : 

STC 

7 clear  carry  flag 

A-4 


1 

Arit. 

lrf*\ 

m4i 

UR 

PXRCTKRR 

# 

I  XtlUM  th* 

memory  variabla  block. 

1 

Input  ■ 

HOna 

t 

Output 

■  Carry  'lag  if  DOS  arror 

1 

[VarSag]  ■  starting  sagmant  addrass 

for  variabla  block.  i 

PROC 

RKLKASK 

V*.v  BLX 

POSH 

BX 

POSH 

cx 

POSH 

DX 

POSH 

18 

XOR 

AX, AX 

;saro  AX 

CMP 

[VarSag] ,AX 

; is  VarSag  assignad? 

JZ 

RBL1 

;if  not  assignad  go  on 

; - 

-ralaasa  assignad  nanory  block 

MOV 

AX, [VarSag] 

;gat  memory  sagnant 

MOV 

KS,  AX 

iplaca  in  XS  ragistar 

MOV 

AX, 4900h 

» ralaasa  funcdtion  no 

nrr 

21h 

» ralaasa  nanory  block 

JC 

RXL1 

;if  No  arror  continua 

» - 

-initial!*#  variabla 

XOR 

AX,  AX 

jsaro  to  ragistar 

MOV 

[VarSag] ,AX 

;sat  nanory  bock  to  0 

CLC 

;claar  carry  flag 

RXZ.lt 

POP 

XS 

POP 

DX 

irastora  ragistars 

POP 

CX 

POP 

BX 

RXT 

BNDP 

> 

RXLKASX 

_VAR_BIiK 

>  1 

;  Craata  a  byta  array  to  ba  uaad  to  rank  aach  variabla.  1 

» 

Input  ■ 

[MaxID]  >  0 

/ 

Output  ■  Carry  flag  if  DOS  arror 

/ 

[VarSag] 

«  Starting  sagnant  addrass 

of  atamory 

block. 

t 

[MaxNo] 

■  total  numbar  ID's  in  tha  fila. 

} 

PROC 

OKT  VAR 

BLX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

XS 

CALL 

RXLKASX  VAR  BLX 

JNC 

CRVO 

; continua  if  no  arror 

JMP 

CRV9 

;axit  on  DOS  arror 

CRVOs 

MOV 

AX, [MaxID] 

;gmt  numbar  of  ID's 

MOV 

CL, 4 

;no.  bits  to  shift 

SHR 

AX, CL 

/paragraph  -  ID/16  ♦  1 

MOV 

BX,  AX 

/paragraph  count  to  BX 

INC 

BX 

/gat  an  axtra  paragraph 

MOV 

AH,48h 

/allocata  nan  function 

IHT 

21h 

/raguast  nanory  block 

JC 

CRV2 

/junp  if  nanory  arror. 

MOV 

[VarSag]  ,AX 

/basa  addrass  of  sag 

JMP 

SHORT  CRV8 

/nomal  axit  of  proc. 

CRV2: 

MOV 

CL, [Color] 

/savs  original  color 

MOV 

AL, [Warning] 

/warning  color 

MOV 

[Color] ,AL 

/sat  color 

MOV 

AX, 0207h 

/ row/ Col 

A- 5 

CRV8 : 
CRV9  s 


KNDP 


CALL  QOTOYX 

CALL  CSTROOT 

db  '  Not  enough  memory  to  rank 

db  'Proas  Any  Key  to  Continue. 

MOV  [Color] , CL 

CALL  HIDICTTR 

CALL  ERRSOUND 

CALL  QBTCHAR 

STC 

JMP  SHORT  CRV9 

CLC 

POP  BS 

POP  OX 

POP  CX 

POP  BX 

RBT 

COT  VAR  BLX 


t position  cursor 
;send  string  to  screen 
the  variables .  ' 

0 

;restore  original  color 
;hide  cursor  off  screen 

{wait  for  key  is  pressed 
{set  carry  flag  >  error 

{dear  carry  flag 

{restore  registers 


Clear  Percantilte  variables. 

Input  ■  None 

Output  *  None  192  hex  0  to  [OutBuf] 


CLKAR 

PBRCNT 

PUSH  " 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

BS 

fill  [FilBuf]  with  192  hex  0's 

MOV 

AX,DS 

{Make  BS  -  DS 

MOV 

BS,  AX 

MOV 

CX,  96 

{max  number  of  words 

MOV 

BX, Offset  OutBuf 

{pointer  to  ASCIIZ  str 

XOR 

AX, AX 

{hex  0's  to  AX  register 

MOV 

[BX] , AX 

{0  to  first  word  of  str 

MOV 

DI,BX 

{DI  -  pointer  to  next 

INC 

DI 

{ptr  to  next  word 

INC 

DI 

MOV 

SI,BX 

{SI  m  ptr  to  hex  0's 

CLD 

;auto  inc  DI  and  SI 

RXP 

MOVSW 

{fill  string  with  0's 

CLC 

{clear  carry  flag 

POP 

BS 

POP 

DX 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

CLEAR 

PBRCNT 

fill  the  following  answer  buffers  with  hex  0's 


SFIBuf 

db 

256 

DDP 

(Oh) ,0h 

;buff  for  Self  I  data 

SF2Buf 

db 

256 

DOT 

(Oh) ,0h 

{buff  for  Self  II  data 

PBRBuf 

db 

2048 

DDP 

(Oh) ,0h 

{buffer  for  8  Peer  lines 

SDPBuf 

db 

2048 

DOT 

(Oh) ,0h 

{buf  8  Superior  lines 

SXTBBuf 

db 

2048 

DOT 

(Oh), Oh 

{buf  8  Subordinate  lines 

Input  ■  None 

Output  ■  None  6660  hex  0  to  fill  answer  buffers 
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woe 


CLBAR  ANSWBRS 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

BS 

MOV 

AX,DS 

;Make  BS  -  DS 

MOV 

BS,  AX 

MOV 

CX, 3329 

{max  number  of  words 

MOV 

BX, Offset  SFIBuf 

{pointer  to  ASCIIZ  str 

XOR 

AX,  AX 

{hex  0's  to  AX  register 

MOV 

[BX] , AX 

{0  to  first  word  of  str 

MOV 

DI.BX 

{DI  ■  pointer  to  next 

INC 

DI 

{ptr  to  next  word 

INC 

DI 

MOV 

SI,BX 

{SI  ■  ptr  to  hex  0's 

CUD 

{auto  inc  DI  and  SI 

RBP 

MOVSM 

{fill  string  with  0's 

CLC 

{dear  carry  flag 

POP 

BS 

POP 

DX 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

CL  BAR 

ANSNBRS 

>  Nov*  byt*  hex  number  in  data  £il*  to  memory 
;  Input  ■  BX  ■  Offset  in  [VarSeg] 

;  DX  -  Offset  in  [FilBuf ] 

;  Output  ■  None 

PROC  VARTOBLK 

PUSH  AX 

PUSH  BX 

POSH  CX 

PUSH  DX 

PUSH  HS 

MOV  AX, [VarSeg] 

MOV  BS, AX 

MOV  SI,DX 

MOV  DI,BX 

j - copy  byte  to  memory  for  sorting 


MOVSB 

CLC 

POP 

BS 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

VAR  TO 

BLK 

[VarSeg] 


;ptr  to  base  of  memblk 
;HS  set  to  memory  blk 
; source  pointer 
;  destination  pointer 


; clear  carry  flag 
jrestore  registers 


Sort  the  Word  Variables  in  [SegVar] . 

Input  ■  AX  ■  count  of  word  variables. 

Output  ■  None 

Note:  this  routine  reassigns  the  DS  and  BS  registers  to  [SegVar] 
Special  Note:  It  does  not  sort  the  first  word  of  [SegVar]  so 

ranking  variables  begin  at  [SegVar]  +  2  Offset  and 
go  to  (2  x  numbers  found)  Offset 
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) 

This 

sort  is  basad  on  tha  following  TP AS CAL  procadura: 

1 

PROCEDURE  Sort;  {A  Shall  Sort) 

; 

VAR 

; 

Gap,J  t  Integer; 

; 

T< 

op  :  string  [13] ; 

; 

TaapNo  t  Intagar ; 

; 

Bogin 

) 

Qop  ta  MaxRac  Div  2; 

; 

Nhilo  gap  >  0  Do 

f 

Bagin 

; 

For  I  t >  (Sap  *  1)  to  MaxRac  Do 

; 

Bagin 

; 

J  ta  I -Gap; 

} 

Whila  J  >  0  Do 

; 

Bagin 

; 

If  A[U]  >  A [J+Qap]  than 

; 

Bagin 

; 

Taap  t a  a[J] ; 

i 

A [ J]  :a  A[J+Gap] ; 

; 

A [J+Qap]  t  a  Tamp ; 

i 

J  : a  J-Oap; 

; 

Knd 

; 

Blsa  J  :a  0; 

; 

Knd; 

; 

Knd; 

; 

Qap  :aGap  DIV  2; 

; 

End; 

; 

Knd; 

; 

Tha  follow  roglatara  hold  tha  abova  variablaa: 

; 

AX  - 

Gap;  BX  a  J;  CX  a  X ;  DX  a  MaxRac;  and 

BP  a  tanp  storago 

PROC 

VAR  SORT 

PUSH 

AX 

,-sava  rogistors 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

PUSH 

DS 

PUSH 

BS 

PUSH 

BP 

MOV 

DX,  AX 

; store  MaxRac  in  DX 

MOV 

AX,  [VarSag] 

;gat  Index  base  segment 

MOV 

DS,AX 

;  reassign  the  DS  £  BS 

MOV 

BS,  AX 

;to  ptr  to  tha  Index. 

XOR 

BX,BX 

;zero  buffer  pointer 

MOV 

[BX] ,BL 

; first  byte  unused 

MOV 

AX,DX 

;Oap  a  MaxRac 

SHR 

AX,  1 

;Gap  a  Gap  Div  by  2 

VARSls 

CMP 

AX,  0 

; whan  Gap  a  0  exit. 

JUE 

VARS4 

;axit  if  <a  0 

MOV 

CX, AX 

;I  is  stored  in  CX 

me 

CX 

;I  a  Gap  +  1 

VARS 2 : 

MOV 

BX,  CX 

; J  in  BX 

SUB 

BX,  AX 

;J  a  I  -  Gap 

JZ 

VARS3 

;skip  if  J  a  0 

JC 

VARS  3 

jakip  if  J  is  «  0. 

CALL 

COMPARE  VAR 

; repeat  until  J  a  0 

VARS 3 j 

me 

CX 

>1-1+1 

CMP 

DX,CX 

; Is  I  <  or  a  MaxRac 

JNC 

VARS  2 

;If  yes  than  loop. 

SHR 

AX,  1 

;Gap  a  Gap  Div  by  2 

OMP 

SHORT  VARS1 

VARS4t 

POP 

BP 

; restore  registers 

A-  8 

PO»  u 
POP  Dfl 
POP  DX 
POP  CX 
POP  BX 
POP  AX 

HIT  /Bort  is  complete. 


Caspars  and  swap  words  if  naadad. 


; 

Input  a 

AX  a  Gap;  BX  -  J; 

DS  &  IS  point 

to  the  base  of  index  file. 

» 

Output  • 

■  [none] 

items 

swaped  in 

memory 

if  needed 

PROC 

COMP ARB 

VAX 

PUSH 

"AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DX,  AX 

jsave  Gap  in  DX 

» 

Compare 

the  byte  of 

each  pointer 

COMVl > 

MOV 

BP,BX 

;save  U  in  BP 

ADD 

AX,  BX 

; AX  a  J  +  Gap 

; 

SHL 

AX,  1 

;ptr  to  O+Qap  in  mem 

t 

SHL 

BX,  1 

;ptr  to  J  in  mem 

CL D 

;auto-inc  SX,  DX 

MOV 

DX,  AX 

{Offset  of  J  +  Gap 

MOV 

SI.BX 

/offset  of  J 

CMPSB 

j compare  bytes 

JLK 

COMV3 

/exit  if  <  or  a. 

; 

Swap  the  1  bytes  of 

index 

record  if 

string  A  >  string  A+Gap 

MOV 

DX,  AX 

/offset  of  J  +  Gap 

MOV 

SX.BX 

/offset  of  J 

MOV 

AL, [SX] 

/read  word  each  str. 

MOV 

AH, [DX] 

MOV 

[SI] , AH 

/write  word  each  str. 

MOV 

[DX] ,AL 

MOV 

AX,DX 

/restore  gap  to  AX 

MOV 

BX.BP 

/restore  J  to  BX 

SUB 

BX,  AX 

/J  a  J  -  gap 

JZ 

COMV3 

/exit  if  O'  a  0. 

JNC 

COMVl 

/continue  if  J  >  0. 

COKV3 t 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

/return  to  Shell_Sort 

BNDP 

COMP ARB 

VAR 

HNDP 

VAR  SORT 

/  Copy  first, last,  median ,  25th  and  75th  parcantilas  ths  [OutBuf]  data  string, 
i  Input  *  AX  a  Number  of  varisbles  found 

/  Round  AX  to  and  even  number  ■  ptr  to  50%  50/2a25% 

50%+25%«75% 

}  Output  a  First,  Last,  Median  and  25%  and  75%  stored  in  [OutBuf] 

l 

PROC  8TORBVAR 

POSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
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/ 


/ 


/ 


STVls 


/ 


STV2 : 


KMDP 

> 

; 

/ 

; 

PROC 


; 


PUSH 

IS 

MOV 

DZ,  AX 

/save  number  found 

MOV 

IX,  Offset  OutBuf 

/ begin  of  var  string 

MOV 

AX, [VarSeg] 

/ base  of  memory  block 

MOV 

IS, AX 

/IS  ptr  to  block  seg 

■get  the 

lowest 

MOV 

DI,  1 

;ptr  to  lowest  score 

MOV 

AL, [IS:DI] 

/get  lowest  score 

MOV 

[BX] ,AL 

l store  lowest  score 

INC 

BX 

>word  pointer. 

■get  th«  highest 

MOV 

DI,DX 

jptr  to  highest  score 

MOV 

AL, [IStDI] 

; get  last  score 

MOV 

[BX] , AL 

/store  last  score 

INC 

BX 

/ advance  [OutBuf] 

■get  the 

50% 

INC 

DX 

; count  ♦  1 

TKST 

DL, Olh 

/is  the  number  even? 

JZ 

STV1 

/if  Yes  goto  next  test 

INC 

DL 

/if  NO  make  it  even 

SHR 

DX,  1 

/div  by  2 

MOV 

DI,DX 

/ 50%  ptr 

MOV 

AL, [IStDI] 

/get  50%  value 

MOV 

[BX] , AL 

/store  50%  value 

INC 

BX 

/advance  [OutBuf] 

■get  the 

25%  and  27% 

MOV 

AX,DX 

/restore  50%  ptr 

DBC 

DX 

INC 

AX 

TK8T 

AL, Olh 

/is  the  nuaiber  even? 

JZ 

STV2 

/if  Yes  goto  next  test 

INC 

AX 

/if  NO  make  it  even 

SHR 

AX,  1 

/ 50%/2  -ptr  to  25% 

MOV 

DI,  AX 

/ 25%  ptr  in  DI 

ADO 

DX,  AX 

/75%  ptr  in  DX 

MOV 

AL, [BS:DI] 

/get  25%  value 

MOV 

[BX] , AL 

/stroe  25%  value 

INC 

BX 

/word  pointer. 

MOV 

DI,DX 

/75%  ptr  to  DI 

MOV 

AL, [ISjDI] 

/get  25%  value 

MOV 

[BX]  ,  AL 

/stroe  25%  value 

CLC 

/clear  carry  flag 

POP 

IS 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

HIT 

STORKVAR 

Input  ■ 

i  none 

Output 

m  none 

RANK  WAIT  MRSS 

POSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

■please  wait  message  to  screen. 

XOR 

AX,  AX 

/clear  menu  area 

CALL 

MINU  BOX 

MOV 

CL, [Color] 

/save  original  attri 
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MOV  XL,  [Warning] 

MOV  [Color] ,AL 

MOV  AX,010Bh 

f'XT.T.  OOTOTX 

CALL  CSTROUT 

db  '  Please  wait  . . . 

MOV  AX,  0££sat  PileNa 

CALL  D8TR_OUT 

CALL  C8TR_OUT 

db  '  ',0 

MOV  [Color] , CL 

nt,T.  HIDBCUR 

CLC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

MET 

KNDP  RANK  WAIT_MKSS 


» warning  color 
;aafc  color 
j  row  3/Col  12 
i  amt  cursor 
{display  warning 
Ranking  tha  data  fils:  ',0 


jrastor a  original  attri 


Plaasa  wait  massage  to  acraan. 

Input  -  AX  ■  number  o£  scoraa 
CX  ■  loop  count 


PROC 


KNDP 

> 

1 

1 

i 


variable  nuabar 


Output 

■  aassage  to 

PROORKSS  MRSS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DL, [Color] 

MOV 

AL, [Menu] 

MOV 

[Color] , AL 

MOV 

AX, 0108h 

CALL 

OOTOTX 

CALL 

CSTR  OUT 

db 

'  Please  wal 

MOV 

AX, [DRecLn] 

SUB 

AX,  20 

MOV 

BX,  AX 

SUB 

AX,  CX 

IHC 

AX 

CALL 

BINOUT 

CALL 

CSTR  OUT 

db 

0 

Hi 

1 

W 

W 

o 

MOV 

AX,  BX 

CALL 

BINOUT 

CALL 

CSTR_OUT 

db 

'  variables. 

MOV 

[Color] ,DL 

CALL 

HIDB_CUR 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

PROORBSSJMHSS 

Input 

■  none 

Output 

■  carry  £lag 

;sava  original  attri 
;manu  color 
;set  color 
{row  3 /Col  12 
;aat  cursor 
{display  warning 
Ranking  variable  ' , 0 

{ID  +  aoans  «rec  In 
{ subtract  ID  length 
{Store  no  o£  naans 
{subtract  loop  counter 
{Start  count  from  1 
{nuabar  of  currant  mean 
{to  screen 

{gat  no  of  means 

{no  of  means  to  screen 

{in  ona  record 

{restore  original  attri 
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PROC 


BSY1: 

KSY2: 

BSY3  t 
BSY4 : 
BSY5: 

KNDP 


PROC 


ISC  YN 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLXAR  MKSSAQI 

MOV 

CL, [Color] 

7  store  original  Color 

MOV 

AL, [Warning] 

i warning  color 

MOV 

[Color] , AL 

jsat  color 

MOV 

AX, 020Dh 

7 row  3/Col  12 

CALL 

QOTOYX 

; sat  cursor 

CALL 

CSTR_OUT 

7  display  warning 

db 

■  Do  you  want 

to  ABORT  tha  ranking  procass  ?  " 

db 

»  Y/N  -,0 

MOV 

[Color] , CL 

7rastora  original  color 

CALL 

HID!  CUR 

CALL 

QBT  CHAR 

AMD 

AL, ODFh 

7  turn  off  bit  6 

CMP 

AL, 'N' 

7  is  it  No? 

JZ 

ISY4 

7  if  yas  axit 

CMP 

AL, ' Y' 

7  is  it  Yas? 

JNZ 

■SY3 

7  if  not  continua 

STC 

7  sat  carry  flag  a  abort 

JKP 

SHORT  BSY5 

7  axit 

CALL 

BRR  SOUND 

JMP 

SHORT  BSY1 

CALL 

CLHARMBSSAOB 

7ampty  masaaga  lina 

CLC 

7claar  cf  ■  continua 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

RKT 

ISC  YN 

AX 

Instructions  for  rank  command. 
Input  ■  Nona 
Output  •  Nona 

RANK  INSTRU 


PUSH 

AX 

7  save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX, 1500h 

?row  21, column  0 

CALL 

MBMUBOX 

7 draw  manu  box 

MOV 

CL, [Color] 

7 gat  assigned  color 

MOV 

AL,  [Manu] 

7 got  manu  color 

MOV 

[Color] , AL 

7 sat  manu  color 

MOV 

AX, 160 Ah 

7 row  22, column  12 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

'Prass  tha  <Bsc>  kay  to  pause  or  cancel 

tha  ' 

db 

' ranking  of  scores . ' , 0 

CALL 

HIDBCUR 

MOV 

[Color] , CL 

7 restore  assigned  color 

POP 

DX 

7 restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 
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MUCK  INSTRU 


1 - 

1 

? 

& 

next  record  fora 

the  DAT  file. 

1 

Input  ■ 

None  (asauaes  file  ptr  la  in  correct  poaition) 

> 

Output  m 

Carry  flag  ■  file 

i  cloaea  or  file 

ptr  already  at  EndOfFile. 

PROC 

READ  DAT 

PUSH 

AX 

PU8H 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

BX, [DATHd] 

jget  file  handle 

CMP 

BX,  0 

;ia  file  open  ? 

JZ 

RDT2 

; if  NO  Exit 

, - 

-read  next  record  from  the 

data  file 

MOV 

CX, [DRecLn] 

jno.  of  bytea  to  read 

MOV 

AX, 3F00h 

;read  file  function  no 

MOV 

DX,Of faet  FilBuf 

} buffer  ptr  to  DX 

INT 

21h 

;get  bytea 

JC 

RDT2 

;end  of  file? 

CMP 

AX,  CX 

;was  read  complete  ? 

JZ 

RDT3 

; if  Yea  normal  return 

RDT2 : 

BTC 

;elae  aet  carry  flag 

RDT3 : 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

BNDP 

READ  DAT 

;  Clear  Input  Buffer. 

;  Input  ■  None 

;  Output  »  None  6  hex  0  to  [FilBuf] 

J 

PROC  SET  DEFAULT 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

•fill  rank  buffer  with 

m 

% 

o 

i 

in 

MOV 

BX, Of faet  OutBuf 

;ptr  to  buffer 

XOR 

AX,  AX 

;hex  zero  to  ax 

MOV 

[BX] , AX 

;make  firat  word  0 

INC 

BX 

;ptr  to  next  word 

INC 

BX 

MOV 

[BX] , AX 

;make  second  word  0 

INC 

BX 

;ptr  to  next  word 

INC 

BX 

MOV 

[BX]  ,AL 

;make  Sth  byte  0 

•place 

offaet  into  DAT 

record  for  matching  mean 

score . 

INC 

BX 

jptr  to  next  word 

MOV 

AX, [DRecLn] 

;get  DAT  rec  length 

SUB 

AX,  CX 

; subtract  loop  counter 

MOV 

[BX]  ,  AX 

; store  DAT  ptr 

CLC 

; clear  carry  flag 

POP 

DX 

; restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 
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MET 

SET  DEFAULT 


/ 

Input 

■  non* 

/ 

Output 

■  carry  flag  ■  DOS  error 

/ 

Fil*  handle  la  in 

[RNXHd] 

/ 

File  contains  sero  bytes. 

; 

MARNXNGt 

this  proceedure  will 

eras*  an  existing 

file  with  the  same  name. 

PROC 

OPEN  MEN  RANK  FILE 

PUSH 

AX 

/ save  registers 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

XOR 

AX,  AX 

; zero  to  ax  register 

MOV 

[RNXHd] ,AX 

;set  fil*  handle  to  0 

MOV 

AX,DS 

/assign  ES  to  the 

MOV 

ES,  AX 

/data  section 

MOV 

AX, Offset  Search 

/ptr  to  path  +  file  nam 

MOV 

CX,  AX 

/save  str  beginning  ptr 

CALL 

STR  LENGTH 

/get  length  of  string 

SUB 

AX,  4 

/ length  -  4  a  ■ . ■ 

ADD 

AX,  CX 

/ptr  to  the  period 

MOV 

DI,  AX 

/destination  ptr 

MOV 

SI, Offset  RNXTyp 

/ptr  to  fil*  type  name 

CLD 

/auto  inc  SI  &  DI 

MOV 

CX,  5 

/number  byte  to  move 

REP 

MOVSB 

/move  type  to  Search 

MOV 

AX,  Offset  Search 

/ptr  to  nam*  of  file 

CALL 

CREATE 

/open  an  empty  fil* 

JC 

ONR1 

/exit  on  DOS  error 

MOV 

[RNXHd] , BX 

/save  file  handle 

CLC 

/clear  carry  *  data  OKI 

ONR1 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP 

OPENNENRANKFILB 

/ 

/ 

Input 

a  non* 

/ 

Output 

a  no  error  message  if  file  not  found  or  DOS  error. 

/ 

MARMING: 

this  proceedure  will 

erase  an  existing  fil*. 

PROC 

DELETE 

RANK  FILE 

PUSH 

AX 

/save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX,DS 

/assign  ES  to  the 

MOV 

ES,  AX 

/data  section 

MOV 

AX, Offset  8*arch 

/ ptr  to  path  +  fil*  nam< 

MOV 

CX,  AX 

/save  str  beginning  ptr 

CALL 

STR  LENGTH 

/get  length  of  string 

SUB 

AX,  4 

/ length  -  4  a 

ADD 

AX,  CX 

/ptr  to  the  period 

MOV 

DI,AX 

/destination  ptr 

MOV 

SI, Off set  RNXTyp 

/ptr  to  fil*  type  nasi* 

CLD 

/auto  inc  SI  a  DI 

MOV 

CX,  5 

/  number  byte  to  stove 

REP 

MOVSB 

/move  type  to  Search 
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MOV  OX, Off sat  Search 

MOV  AH,41h 

XMT  21h 

XOR  AX, AX 

MOV  [RMXHd] , AX 

CtiC 

POP  ox 

POP  ex 

POP  BX 

POP  AX 

MET 

KHDP  DXLXTX  RANK  PILK 


;ptr  to  file  oa—  string 
/delate  file  function  no 
» try  to  delete  file. 

/ zero  to  ax 
;zero  file  handle 
/dear  carry  ■  data  OKI 
/restore  registers 


/  Input  ■  None 

/  Output  ■  Mona  6  hex  0  to  [PilBuf] 

/ 

PROC  DISPLAYSORT 

POSH  AX 

POSH  BX 

POSH  CX 

POSH  OX 

POSH  HS 

MOV  DI, AX 

MOV  AX, 0700h 

CALL  GOTOYX 

MOV  CX, 22  /number  found  counter 

MOV  AX, [VarSeg] 

MOV  KS.AX 

SOB  DI,20 

DS1:  XOR  AX, AX 

MOV  AL, [BSsDI] 

CALL  BINOOT 

CALL  CSTROOT 

db  '  ',0 

INC  DI 

LOOP  DS1 

CALL  GKTCHAR 

CLC  /clear  carry  flag 

POP  RS 

POP  OX  /restore  registers 

POP  CX 

POP  BX 

POP  AX 

RBT 

BNDP  DISPLAY  SORT 


/  Read  mean  scores  for  one  variable  for  each  ID  number  into  DOS  memory  block. 
/  Input  -  None 

/  Output  ■  AX  ■  No  of  mean  scores  to  sort 

/ 

/  [VarSeg]  ■  starting  segment  address  for  variable  block. 

/  BX  -  stores  offset  ptr  in  memory  blk  or  No  of  mean  score  found. 

/  DX  ■  stores  offset  in  [FilBuf] 

/ 

PROC  RXADVAR 

POSH  BX 

POSH  CX 

POSH  DX 

XOR  AX, AX 

MOV  BX,  AX 

A-15 


/zero  AX 

/destination  pointer 


CMP 

[VarSeg] ,AX 

jia  VarSeg  assigned? 

JZ 

RVR9 

;if  not  assigned  go  on 

J - 

o 

! 

ct 

• 

offset  in  [FilBuf]  baaed  on 

CX  loop  counter 

MOV 

AX, [DRecLn] 

/ID  ♦  means  «rec  In 

SOB 

AX,  CX 

/subtract  loop  counter 

MOV 

DX,  Offset  PilBuf 

/set  base  address 

ADD 

DX,  AX 

/add  offset  to  base  ptr 

MOV 

AX,  rDATHd] 

/ get  file  handle 

CALL 

GOTO  TOP 

/reset  file  pointer 

JC 

RVR9 

/exit  on  DOS  error 

1 - 

-read  a  ID  record  from  the  data  file 

RVR1: 

CALL 

RKAD  DAT 

/read  next  rec  from  file 

JC 

RVR9 

/exit  if  BndOfFile 

J - 

-la  data 

out  of  range  ? 

MOV 

SI.DX 

/ptr  to  buffer  section 

MOV 

AX, 0A33h 

zl.O  and  5.1 

CMP 

[SI] , AH 

/is  score  <  1.0  ? 

JC 

RVR1 

/if  yes  skip  mean 

CMP 

[SI] , AL 

/is  it  >  5.0  ? 

JMC 

RVR1 

/if  yes  skip  means 

INC 

BX 

/count  ■  count  +  1 

CALL 

VAR  TO  BLK 

/move  variable  to  block 

JMP 

SHORT  RVR1 

RVR9: 

MOV 

AX,  BX 

/return  no  of  means 

CLC 

/clear  carry  flag 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

RBT 

BNDP 

t 

RKADVAR 

1 

Z 

Rank  the 

data  to  compute  lowest,  25th,  50th,  75th  percentiles,  and  last 

z 

Input  - 

None 

t 

Output 

m  rank  file  open  if  randed 

PROC 

RANK  DATA 

PUSH 

AX 

/save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

IS  RANK 

/is  file  already  ranked? 

JC 

RD7 

/if  Yes  exit 

CALL 

GST  VAR  BLK 

/create  var  mam  block 

JC 

RD7 

/exit  on  DOS  error 

CALL 

IS  FULL 

/is  room  available? 

JC 

RD6 

/exit  on  disk  full 

CALL 

OPEN  NSW  RANK  FILB 

/open  new  rank  file 

JC 

RD6 

/exit  on  DOS  error 

CALL 

RANK  WAIT  MBSS 

/estimate  how  much  time 

CALL 

RANK  INSTRU 

/bottom  message  box 

MOV 

CX, [DRecLn] 

/number  var  to  rank  +  20 

SUB 

CX,  20 

/number  of  var  to  rank 

RD1: 

CALL 

SBT  DEFAULT 

/ set  default  value  «  0 

CALL 

RBAD  VAR 

/one  var  for  all  ID's 

CMP 

AX, 3 

/were  <  2  found? 

JC 

RD3 

/is  Yes  write  default 

RD2t 

CALL 

PROGRBSS  MBSS 

/tell  user  of  progress 

CALL 

VAR  SORT 

/sort  in  DOS  mam  bock 

CALL 

STORE  VAR 

/get  median, 25%  &  75% 

/ - 

-Check  keyboard  buffer  to  see  if  the 

<Bsc>  key  been  pressed? 

MOV 

AX, 0600h 

/DOS  function  #  6 
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MOV 

DL, OPFh 

iraad  char  from  kay- 

XMT 

21h 

; board  buffar. 

J* 

ED3 

>NO  kay  prassad  contlnua 

CMP 

AL, lBh 

jwas  It  tha  <ESC>  kay? 

JNZ 

RD3 

lit  NO  contlnua 

CALL 

ESC  YN 

)lf  YES  Inform  usar 

JC 

RD5 

; carry  flag  ■  abort 

I---- 

--Writ* 

racord  to  RANK  fila 

• 

RD3  : 

PUSH 

CZ 

;sava  loop  countar 

MOV 

CX,  7 

>no.  of  bytas  to  writa 

MOV 

BX, [RNXBd] 

; flla  handla  to  BX 

MOV 

AX, 4000h 

jwrita  to  flla:  func. 

no. 

MOV 

DX,Offaat  OutBuf 

jptr  to  data  to  writa 

INT 

2  lb 

; writa  to  tha  fila 

POP 

CX 

;rastora  loop  countar 

JC 

RD5 

;axit  on  Dos  arror 

>  -  -  -  - 

--loop  until  aach  column  la 

rankad . 

RD4: 

LOOP 

RD1 

; loop  until  cx  ■  0 

JMP 

SHORT  RDS 

;OKf  fila  is  complata 

RDS: 

CALL 

DELETE  RANK  PILE 

;arasa  rank  fila 

>  -  -  -  - 

•  -normal 

axlt  point 

RD6 : 

CALL 

RELEASE  VAR  BLK 

rralaasa  mam  var  block 

CLC 

RD7 : 

POP 

DX 

;rastora  ragistars 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

KNDP 

RANK 

DATA 

1 

■  CODB 

t 

i 

Zndax 

tha  IDs  and  placa  tham 

In  a  mamory  block 

buffar. 

i 

Input 

■  Nona 

t 

Output  ■  Carry  flag  ■  No 

IDs 

In  mamory  block 

PROC 

QKT  INDEX 

PUSH 

AX 

;s ava  ragistars 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

GET  INDEX  BLK 

;craata  var  mam  block 

JC 

IF7 

; axlt  on  DOS  arror 

CALL 

READ  INDEX  FILE 

; lndax  fila  to  mamory 

JNC 

IF6 

;Sxit  if  NO  arrors 

; - 

• 

4J 

a 

• 

H 

O 

1 

an  lndax  In  mamory 

;alsa  craata  a  naw  ona 

CALL 

INDEX  WAIT  MESS 

;astlmata  how  much  tima 

CALL 

IDS  TO  MEMORY 

jraad  all  ID's  to  mamory 

JC 

IF7 

;axit  on  Error 

CALL 

SORT  INDEX 

;sort  in  DOS  mam  bock 

1 - 

-writ* 

bha  lndax  to  tha  lndax  flla 

CALL 

WRITE  INDEX  FILE 

;sava  lndax  to  disk 

JNC 

IF6 

;axit  if  NO  Dos  arror 

IF5: 

CALL 

DELETE  NDX  FILE 

>alsa  arasa  lndax  fila 

XT 6 : 

CLC 

IF7: 

POP 

DX 

;rastora  ragistars 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

KNDP 

GET  INDEX 
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Input 

■  non* 

Output 

m  no  *rror  message 

if  fil*  not  found  or  DOS  error. 

WARNINOi 

thia  proe**dur*  will 

•raa*  an  existing  fil*. 

DELETE 

NDX  FILE 

PUSH 

AX~ 

7  save  r*giat*ra 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

AX.DS 

;aaaign  ES  to  th* 

MOV 

ES,AX 

;data  section 

MOV 

AX, Of fact  Search 

;ptr  to  path  +  fil*  nan* 

MOV 

CX, AX 

;aav*  atr  beginning  ptr 

STR  LENGTH 

;g*t  length  of  atring 

SUB 

AX, 4 

7 length  -  4  *  ■ . ■ 

ADD 

AX,  CX 

;ptr  to  th*  period 

MOV 

D1,AX 

;d*atination  ptr 

MOV 

SI,Offa*t  NDXTyp 

;ptr  to  fil*  typ*  nan* 

CLD 

;auto  inc  SI  &  DI 

MOV 

CX, 5 

; number  byt*  to  mov* 

REP 

MOVSB 

;mov*  typ*  to  Search 

MOV 

DX, Of fact  Search 

;ptr  to  fil*  nam*  atring 

MOV 

AH, 41h 

;d*l*t*  fil*  function  no 

INT 

21h 

; try  to  d*l*t*  fil*. 

XOR 

AX,  AX 

;z*ro  to  ax 

MOV 

[NDXHd] , AX 

7  zero  fil*  handle 

CLC 

7 clear  carry  -  data  OKI 

POP 

DX 

;r*ator*  register* 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

UNDP  DELETE_NDX_FILE 

t 

t 

t  Input  -  non* 

7  Output  *  non* 

PROC  INDEX  WAIT  MESS 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

-pleas* 

wait  message  to  screen. 

XOR 

AX, AX 

; clear  menu  area 

CALL 

MENU  BOX 

MOV 

CL, [Color] 

;sav*  original  attri 

MOV 

AL, [Warning] 

; warning  color 

MOV 

[Color] , AL 

;set  color 

MOV 

AX, OlOEh 

; row  /Col 

CALL 

GOTOYX 

7  set  cursor 

CALL 

CSTR  OUT 

7 display  warning 

db 

"  Pleas*  wait  . 

Indexing  th*  IDs.  ",0 

MOV 

[Color] ,  CL 

7 restore  original  attri 

CALL 

HIDE  CUR 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

INDEX 

_WAIT_MSSS 
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I 


Create  a  memory  block  array  to  b«  uaad  to  index  tha  ZDs. 

Input  ■  [MaxID]  >  0 

Output  ■  Carry  flag  If  DOS  error 

[VarSag]  ■  Starting  segment  address  of  memory  block. 

[MaxNo]  »  total  number  ID's  in  tha  file, 
reserving  32  byte  per  ID  plus  2  extra  entries. 

(an  extra  blank  at  the  bottom  and  rounding  to  next  higher  value) 


PROC  GHT_INDKX_BLK 

PUSH  BX 

push  cx 

PUSH  DX 

PUSH  SB 

CALL  RXLSASB_VAR_BLK 

JNC  <3 IBO 

JMP  GXB9 

QIBO :  MOV  AX,  [MaxID] 

MOV  CL, 4 

SHL  AX, 1 

ADD  AX, 4 

MOV  BX, AX 

MOV  AH, 48h 

I NT  21h 

JC  OIB2 

MOV  [VarSag] ,AX 

JMP  SHORT  GIB  8 

G1B2 1  MOV  CL, [Color] 

MOV  AL, [Warning] 

MOV  [Color] , AL 

MOV  AX, 0207h 

CALL  OOTOYX 

CALL  CSTROUT 

db  '  Hot  enough  memory  to  index  the  IDs. 

db  ' Press  Any  Key  to  Continue .  ' ,  0 

MOV  [Color], CL 

CALL  HIDBCUR 

CALL  BRR80UND 

CALL  GXT_CHAR 

STC 

JMP  SHORT  GIB9 

OIB8:  CLC 

GIB9 t  POP  S3 

POP  DX 

POP  CX 

POP  BX 

RXT 

BHDP  GETINDBXBLK 

/ 


/ continue  if  no  error 
; exit  on  DOS  error 
;get  number  of  ID'S 
/no.  bits  to  shift 
/paragraph  ■  2 (ZD)  *  4 
/two  extra  entries 
/paragraph  count  to  BX 
/allocate  men  function 
/reguest  memory  block 
; jump  if  memory  error, 
/base  address  of  sag 
/normal  exit  of  proc. 
/save  original  color 
/warning  color 
/set  color 
; row/ Col 

/position  cursor 
/send  string  to  screen 


/restore  original  color 
/hide  cursor  off  screen 

/wait  for  key  is  pressed 
/sat  carry  flag  ■  error 

/dear  carry  flag 

/restore  registers 


/  Input  ■  none 

/  Output  *  carry  flag  -  DOS  error 

/  WARNING:  this  proceedure  will  erase  an  existing  file. 

/ 

PROC  DXLZTK_INDXX_PZLX 

PUSH  AX  ~  /save  registers 

PUSH  BX 
PUSH  CX 
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PUSH 

DX 

MOV 

AX,  DS 

;  assign  ES  to  the 

MOV 

XS,  AX 

/ data  section 

MOV 

AX, Offset  Search 

/ptr  to  path  +  file  name 

MOV 

CX,  AX 

; save  str  beginning  ptr 

cm 

STR  LENGTH 

jget  length  of  string 

SUB 

AX, 4 

/ length  -  4  ■  * . ■ 

ADO 

AX,  CX 

;ptr  to  the  period 

MOV 

DI,  AX 

/ destination  ptr 

MOV 

SI, Offset  NDXTyp 

/ptr  to  file  type  name 

CLD 

;auto  inc  SI  It  DI 

MOV 

CX,  5 

; number  byte  to  move 

RBP 

MOVSB 

jnove  type  to  Search 

MOV 

AX,  Offset  Search 

;ptr  to  name  of  file 

CALL 

DELETE  FILE 

; erase  file 

JC 

DIF1 

;exit  on  DOS  error 

XOR 

AX, AX 

;  zero  to  ax 

MOV 

[NDXHd] , AX 

/ zero  file  handle 

CL  C 

; clear  carry  »  data  0X1 

DIF1 : 

POP 

DX 

; restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

ENDP 

/ 

DKLBTB 

_INDEX_FILE 

/ 

l 

Input 

m  none 

/ 

Output 

*  carry  flag  *  DOS  error 

; 

File  handle  is  in 

[NDXHd] 

i 

File  contains  zero  bytes. 

/ 

MARKING: 

this  proceedure  will 

erase  an  existing 

file  with  the  same  name. 

PROC 

OPEN  NEW  INDEX  FILE 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

AX,  AX 

;zero  to  ax  register 

MOV 

[NDXHd] , AX 

;set  file  handle  to  0 

MOV 

AX,DS 

;  assign  BS  to  the 

MOV 

BS,  AX 

;data  section 

MOV 

AX, Offset  Search 

;ptr  to  path  +  file  name 

MOV 

CX,  AX 

rsave  str  beginning  ptr 

CALL 

STR  LENGTH 

;get  length  of  string 

SUB 

AX,  4 

; length  -  4  ■ 

ADD 

AX,  CX 

;ptr  to  the  period 

MOV 

DI,  AX 

/destination  ptr 

MOV 

SI, Off set  NDXTyp 

;ptr  to  file  type  name 

CLD 

;auto  inc  SI  &  DI 

MOV 

CX,  5 

; number  byte  to  move 

REP 

MOVSB 

/move  type  to  Search 

MOV 

AX,  Offset  Search 

/ptr  to  name  of  file 

CALL 

CREATE 

/ open  an  empty  file 

JC 

0IF1 

/exit  on  DOS  error 

MOV 

[NDXHd] , BX 

/save  file  handle 

CLC 

/clear  carry  «  data  OKI 

0171 : 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 
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ry  from  the  Data  fila 


BMDP  OPXNHXWIMDXXjriLX 

; 

;  Raad  unsorted  XD's  to  mamo 

/  Input  ■  nona 

i  Output  ■  carry  flag  »  DOS  error 

> 

i  Format  for  tha  memory  index: 

f  word:  ID  number, 4  spacea,20  character  ID  atring,  4  spaces, 2  hex  zeroa 
i  MOte:  Record  number  0  exists  and  is  marked  as  record  0  but  is  never  sorted. 
/  Recond  number  Maxld  +  1  exist  but  is  never  marked  or  sorted. 

/  Mote:  rac  0  and  Maxld  +  1  are  add  to  allow  quick  binary  searches. 


PROC 


; 


» 


SDIl: 
RDI2 : 


IDS  TO  MEMORY 

PUSH 

AX 

;save  registers 

POSH 

BX 

PUSH 

cx 

PUSH 

DX 

PUSH 

SS 

MOV 

AX, [VarSeg] 

;set  register  to 

MOV 

KS,  AX 

: memory  block  address 

PUSH 

DS 

;save  data  sag.  register 

MOV 

DS,  AX 

/set  data  to  mem  blk 

XOR 

BX,  BX 

; memory  offset  ptr 

MOV 

DX,BX 

;zero  record  counter 

MOV 

DX,BX 

/zero  mem  blk  offset 

•set  first  record  as  a 

blank  line. 

MOV 

[DI] ,DX 

/mark  first  rec  no  ■  0 

INC 

DI 

jadv  mem  word  pointer 

INC 

DI 

MOV 

AX, 2020h 

; spaces  to  ax  register 

MOV 

[DI]  ,  AX 

; place  spaces  in  string 

MOV 

SI,DX 

/set  source  pointer 

INC 

DI 

} adv  mem  word  pointer 

IMC 

DI 

CLD 

;auto  inc  SI  £  DI 

MOV 

CX,  13 

; number  words  to  move 

RHP 

MOVSW 

;mova  type  to  Search 

MOV 

[DI] ,DX 

;mark  end  of  string 

POP 

DS 

/restore  data  sag  rag. 

■is  the 

data  fila  open 

? 

MOV 

AX, [DATHd] 

jget  data  file  handle 

CMP 

AX,  0 

/is  file  open  ? 

JNZ 

RDI1 

; if  Yes  continue 

STC 

/else  set  carry  flag 

JMP 

SHORT  RDI4 

/asn  exit  error. 

CALL 

GOTO  TOP 

/reset  file  pointer 

CALL 

RXAD  DAT 

/read  one  ID  line 

JC 

RDI3 

/exit  if  BndOfFile 

ADD 

BX,  32 

/ptr  to  next  mem  line 

MOV 

DX,BX 

/set  ptr  in  DI  register 

IMC 

DX 

/advance  record  no 

MOV 

[BS:DX] , DX 

/record  no  to  ID  string 

IMC 

DI 

/advance  mem  ptr  past 

IMC 

DI 

/id  number 

MOV 

AX, 2020h 

/two  first  two  spaces 

MOV 

[HS:DI] , AX 

IMC 

DI 

/advance  mam  ptr 

IMC 

DI 

/ 

MOV 

[XS:DI]  , AX 

/add  second  two  spaces 

IMC 

DI 

/at  the  beginning  of 

IMC 

DI 

/the  ID  string 

CLD 

/auto  inc  SI  £  DI 
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/source  offset  ptr 
/move  tha  ID  to  mei 


RDI3 : 
RDI4: 


KNDP 


PROC 


no. 


NTH: 


KNDP 

; 


MOV  SI,0££set  FilBuf 

MOV  CZ,10 

RIP  MOVSW 

MOV  [IS:DI],AX 

INC  DX 

INC  DI 

MOV  [IS :DX] , AX 

INC  DI 

INC  DI 

XOR  AX,  AX 

MOV  [IS:DI],AX 

JMP  SHORT  RDI2 

CXiC 

POP  IS 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RIT 

IDSTOMIMORY 

Writ*  memory  block  to  NDX  file. 

Notat  no  arrora  ara  raportad  bacauaa  thia  lndax  £lla  will 

ba  coaputad  aach  time  1£  it  la  not  atorad  on  tha  dlak. 
If  it  la  on  tha  dlak  It  la  aaaumad  to  ba  aortad. 

Tha  flla  command  will  dalata  a  lndax  fila  if  it  la  not 
tha  corract  aixa:  32(IDa  +2)  ■  lndax  aixa  in  bytaa. 


WRITS 

INDEX  FILE 

PUSH  ' 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

MOV 

AX,  [MaxID] 

;gat  numbar  of  ID' a 

INC 

AX 

;ID  +  2 

INC 

AX 

MOV 

CX,  32 

;aach  an try  la  32  bytaa 

MUL 

ex 

; AX  *  total  bytaa 

MOV 

CX,  AX 

/no.  of  bytaa  to  writa 

MOV 

AX, [VarSag] 

jgat  memory  segment 

CMP 

AX,  0 

;ia  memory  allocated? 

JZ 

WTI1 

/if  NO  exit 

CALL 

OPEN  NSW  INDEX  FILE 

/open  a  naw  rnk  fila. 

JC 

WTI1 

MOV 

BX, [NDXHd] 

PUSH 

DS 

;sava  data  sag.  address 

MOV 

DS,  AX 

; memory  blk  addr.  to  da 

MOV 

AX, 4000h 

/write  to  fila:  func. 

XOR 

DX,DX 

/segment  offaat  -  0 

XNT 

21h 

/writa  to  tha  fila 

POP 

DS 

/restore  data  sag.  addr 

JHC 

WTI1 

/exit  if  NO  error 

CALL 

DBLETE_INDEX_FILB 

/else  erase  tha  fila 

CLC 

/clear  carry  flag 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RIT 

WRITI 

INDEX  FILE 

/place  two  apacaa 
;a£tar  tha  and  o£ 

; tha  ID  string 
/place  two  apacaa 
;a£tar  tha  and  of 
;tha  ID  string 
;  hax  xaro  to  ax 
/andofatring  markar 

idaar  carry  «  data  OKI 

iraatora  ragiatara 
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PROC 


RXF2 : 
RX73 : 


KNDP 


Read  the  index  £11*  into  wonry  block, 
input  ■  Hone 

Output  a  Carry  flap  if  Dos  error. 

RXAD  INDBX  FILE 

PUSH  AX 

PUSH  BX 

PUSH  CX 

POSH  DX 

MOV  AX, [NDXHd] 

CMP  AX, 0 

JZ  RXF2 

rmt.T.  OOTOTOP 

ere  RXF2 

MOV  BX,  AX 

MOV  AX, [MaxXD] 

INC  AX 

INC  AX 

MOV  CX, 32 

MUL  CX 

MOV  CX, AX 

MOV  AX, [VarSeg] 

CMP  AX, 0 

JZ  RXF2 

PUSH  DS 

MOV  DS, AX 

MOV  AX, 3F00h 

MOV  DX, 0 

XMT  21h 

POP  DS 

ere  RXF2 

CMP  AX, CX 

JZ  RXF3 

STC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RKT 

READ  INDEX  BILK 


> 

I 

/ 

I 

PROC 


STXD1 : 


Tha  follow  registers  hold  the  above  variables: 
AX  -  Oapi  BX  -  J;  CX  -  I;  DX  a  KaxRac;  and 

80RTINDBX 
PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

PUSH  DS 

PUSH  BS 

PUSH  BP 

MOV  DX,  [MaxXD] 

MOV  AX, [VarSeg] 

MOV  DS, AX 

MOV  RS.AX 

MOV  AX,DX 

SHR  AX, 1 

CMP  AX,  0 

JZJE  STXD4 

MOV  CX, AX 


/get  file  handle 
/is  file  open  ? 

; if  MO  Bxit 

t file  ptr  to  beg  of  file 
/exit  on  DOS  error 
/file  handle  to  bx 
;get  number  of  ID'S 
?  ID  ♦  2 

; each  entry  is  32  bytes 
; AX  •  total  bytes 
?no.  of  bytes  to  read 
;get  mmtory  segment 
; is  memory  allocated? 

;if  NO  exit 

;  save  data  seg.  address 

/memory  blk  addr.  to  ds 
/read  file  function  no 
/buffer  ptr  to  DX 
/get  bytes 

/exit  on  DOS  error? 

/was  read  complete  ? 

/if  Yes  normal  return 
/else  set  carry  flag 


BP  a  temp  storage 


/save  registers 


/store  MaxRec  in  DX 
/ get  Index  base  segment 
/reassign  the  DS  &  BS 
/to  ptr  to  the  Index. 
/Qap  a  MaxRec 
/ Gap  a  oap  Div  by  2 
/when  Oap  ■  0  exit, 
/exit  if  <>  0 
/X  is  stored  in  CX 
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IRC  CX 

STXD2 1  MOV  BX,CX 

SOB  BX,AX 

JZ  3TID3 

JC  8TID3 

CALL  COMPARRIDS 

STXD3 t  IRC  ex 

CMP  DX,CX 

JHC  STXD2 

8  HR  AX,  1 

JMP  SHORT  STXDX 

STXD4 1  POP  BP  /raatora  ragiatara 

POP  BS 

POP  DS 

POP  OX 

POP  CX 

POP  BX 

POP  AX 

RBT  jaort  ia  complata. 


; X  ■  Gap  +  1 
/J  in  BX 
;J  ■  X  -  Oap 
/skip  if  J  >  0 
;akip  if  J  ia  <  0. 
;rapaat  until  J  ■  0 
;X  -  X  +  1 
;Ia  X  <  or  ■  MaxRac 
;X£  yaa  than  loop. 

I  Sap  ■  Gap  Div  by  2 


Campara  and  awap  Xndax  atringa  if  naadad. 

Nota:  Thia  ia  a  aubroutina  of  S0RT_IMDBX.  Tha  indax  fila  racord 
langth  ia  16  bytaa.  Tha  aort  ia  aiada  on  tha  firat  6  bytaa. 

Input  ■  AX  >  Gap;  BX  ■  J;  OS  &  BS  point  to  tha  baaa  of  indax  fila. 
Output  ■  AX  ■  Gap;  CX  ■  X;  and  OX  -  MaxRac  ara  ratumad  on  changad. 
BX  ■  J  ia  diacardad. 


PROC 


CKXD1: 


CMXD2: 


COMP ARB 

IDS 

PUSH 

AX 

;aava  ragiatara 

PUSH 

ex 

PUSH 

DX 

MOV 

DX,  AX 

jaava  Gap  in  DX 

Compara 

tha  firat  20  bytaa  of  aach  indax  racord 

MOV 

BP,BX 

;a ava  J  in  BP 

ADD 

AX,  BX 

;  AX  ■  J  +  Gap 

MOV 

CL,  5 

/multiply  by  32 

SHL 

AX,  CL 

;ptr  to  J+Gap  in  mam 

SHL 

BX,  CL 

;ptr  to  J  in  mam 

CLD 

;auto-inc  SX,  DI 

MOV 

DX,  AX 

;offaat  of  J  +  Gap 

ADD 

DX,  6 

?akip  rac  no  and  8pacaa 

MOV 

SI,BX 

joffaat  of  J 

ADD 

SI, 6 

;akip  rac  no  and  apacaa 

MOV 

CX, 20 

jbyta  countar 

RBPB 

CMPSB 

; compara  atringa 

JLB 

GMXD3 

;axit  if  <  or  ». 

Swap  tha  32  bytaa  of  indax  racord  if  atring  A  > 

atring  A+Gap 

MOV 

DX,  AX 

joffaat  of  J  +  Gap 

MOV 

SX,BX 

; offaat  of  J 

MOV 

CX,  16 

;word  countar 

MOV 

AX, [SI] 

;raad  word  aach  atr. 

MOV 

BX,  [DX] 

MOV 

[SX] ,BX 

jwrita  word  aach  atr. 

MOV 

[DI] , AX 

me 

DX 

/point  to  naxt  word 

me 

DX 

me 

SX 

/point  to  naxt  word 

INC 

SX 

LOOP 

CMXD2 

/loop  fiva  timaa 

MOV 

AX,DX 

/raatora  gap  to  AX 

MOV 

BX,BP 

/raatora  J  to  BX 

^ xMf  "Jr- 


SUB 

BX,AX 

»J  ■  J  -  gap 

JX 

CMXD3 

; exit  if  J  ■  0. 

JVC 

CMZD1 

/continue  if  J  >  0. 

QHD3 1 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

AX 

RXT 

/return  to  Shell  Sort 

HNDP 

COMP  AM  IDS 

HMDP 

1 

SORTXMDXX 

z 

z - 

-Display  IDs  in  Memory  Directory 

z 

Input 

none 

; 

byte 

[HiBar}  ■  which  bar  is  highlighed  bar  (1 

to  14) 

z 

word 

[Topbar]  ■  index  item  at  top  to 

screen  (1 

to  Maxld) 

1 

; 

Output 

a  14  line  of  file  names  to  the 

screen. 

z 

Note: 

local  variables:  AX  ■  Id 

at  top  of  screen  display 

z 

BX  ■  row/col  DH  -  hilite  bar 

color  attribute 

z 

CX  ■  loop  counter  DL  ■  non  hilite 

color  attribute 

1 

PROC 

DISPLAY  IDS 

PUSH 

AX 

/ save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX, [TopBar] 

/get  TopBar 

MOV 

DL, [Menu] 

/normal  attribute 

MOV 

[Color] ,DL 

/set  default  color 

MOV 

DH, [Warning] 

/hilite  bar  attirbute 

MOV 

BX, 0519h 

/ row  6/  col  32 

MOV 

CX,  15 

-number  of  rows 

DIDO: 

CMP 

CL, [HiBar] 

/is  this  the  hilite  bar 

JNZ 

DID1 

/<>  0  ■  no  color  change 

MOV 

[Color] ,DH 

/if  yes  color  -  warning 

DXD1: 

CALL 

ID  STR  OUT 

/display  one  ID  string 

MOV 

[Color] ,DL 

/if  yes  color  -  menu 

DXD2 : 

INC 

BH 

/ptr  to  next  row 

INC 

AX 

zptr  to  next  dir  entry 

LOOP 

DIDO 

/loop  14  times 

CALL 

HIDH  COR 

CLC 

/clear  carry  flag 

DID3 : 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

HNDP 

Z 

DXSPLAYXDS 

Z 

J - 

-Send  a 

24  byte  memory  block  asciis  string  to  the  Screen 

Z 

Input 

■  AX  ■  memory  index  number  (0 

to  MaxID) 

0  -  blank  entry 

/ 

BX  ■  row  /col 

;  [MaxID]  ■  th«  number  of  ZDs  in  the  msnory  block 

;  [VarSeg]  -  ssgmsnt  address  of  the  base  of  the  memory  directory 

z  Output  -  ASCXIZ  string  sent  to  the  screen 

/ 

PROC  ID_STR_OOT 

PUSH  AX  /save  registers 

POSH  BX 
PUSH  CX 
PUSH  DX 
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J 


compute 


1080 1 


KNDP 


try  index  offset 


acp 

[MaxID] ,  AX 

; is  DirPile  •  OK  1 

one 

IDSO 

/if  in  bounds  jump 

XOR 

AX,  AX 

/else  sudee  blank  file 

MOV 

CL, 5 

/shift  5  ■  tines  32 

SBL 

AX,  CL 

/multi  by  32 

INC 

AX 

/skip  record  no  word 

INC 

AX 

MOV 

CX,  AX 

/store  nenory  offset 

MOV 

AX,  BX 

/row/cow  to  ax/ 

CALL 

QOTOTX 

/position  cursor 

MOV 

AX, [VarSeg] 

/ get  the  nenory  blk  seg 

POSH 

DS 

/ save  current  data  sag 

MOV 

DS,  AX 

/set  data  seg  to  nan  blk 

MOV 

AX,  CX 

/restore  memory  offset 

CALL 

DSTR  OUT 

/send  ID  to  the  screen 

POP 

DS 

/restore  orig.  data  seg 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RIT 

ID  STR 

OUT 

Mark  all  ID's  in  memory  for  printing. 
Input  a  non* 

Output  a  none 


Format  for  the  memory  index: 

word:  ID  number , 4  spaces, 20  character  ID  string,  4  spaces, 2  hex  seros 
Note:  Record  number  0  exists  and  is  narked  as  record  0  but  is  never  sorted. 
Recond  number  Maxld  +  1  exist  but  is  never  narked  or  sorted. 


Note:  rec  0  and  Kaxld  +  1  are  add  to  allow  quick  binary  searches. 


PROC  TAQALL 

POSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

PUSH  NS 

MOV  AX, [VarSeg] 

MOV  IS, AX 

MOV  CX,  [MaxID] 

MOV  DI,  4 

MOV  AD,'*' 

MOV  BX, 32 

TAX:  ADD  DI,BX 

MOV  [IS:DI] ,AL 

LOOP  TAX 

CLC 

POP  IS 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RIT 

KNDP  TA0_ALL 

; 

/  Format  for  the  nenory  index: 

/  word:  ID  nunber,4  spaces, 20  character 


/ save  registers 


;set  register  to 
; memory  block  address 
; loop  counter 
/offset  in  record 
; tag  marker 
; record  length 


; clear  carry  »  data  OKI 
/ restore  registers 


ID  string,  4  spaces, 2  hex  seros 
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I  Motet i  Record  number  0  exiata  and  it 
I  Recond  auabtr  MaxZd  ♦  1  txltte 

i  Motet i  rte  0  tad  MaxZd  ♦  1  art 

i 

phoc  van aoall 

puss  u 

PUSH  BX 

PUSH  CX 

PUSH  DX 

PUSH  IS 

MOV  AX, [VarSeg] 

MOV  XS,AX 

MOV  CX, [MaxZD] 

MOV  DZ,4 

MOV  AL, '  ' 

MOV  BZ, 32 

OTls  ADD  DZ,BZ 

MOV  [BS:DZJ ,  AL 

LOOP  UT1 

CLC 

POP  IS 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RBT 

BHD?  UMTAO  ALL 


atrktd  aa  rtcord  0  but  la  never  aortetd. 

but  ia  atvtr  aarktd  or  aortetd. 

add  to  allow  quick  binary  aaarchaa. 


/aave  rtgiatetra 


;aat  rtgiafctr  to 
;ataory  block  addrtaa 
/loop  counter 
/offaet  in  rtcord 
/untag  marker 
/rtcord  length 


/dear  carry  ■  data  OKI 
zraatora  regiatara 


Format  for  the  memory  index: 

word:  ZD  number, 4  apacea,20  character  ZD  atring,  4  apacea,2  hex  aeroa 
Note:  Record  number  0  exiatea  and  ia  marked  aa  record  0  but  ia  never  aorted. 
Recond  number  MaxZd  +  1  exiate  but  ia  never  marked  or  aorted. 

Note:  rec  0  and  MaxZd  +  1  are  add  to  allow  quick  binary  aaarchaa. 

Tag  highlighted  bar  ZD  in  index  file, 
bytea  [HiBar]  ■  which  bar  ia  highlighed  bar  (1  to  15) 
word  [TopBar]  «  index  item  ate  top  to  acreen  (1  to  MaxZd) 


TAO 

PUSH 

AX 

zaave  regiatara 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

XS 

MOV 

AX, [VarSeg] 

zaet  regiater  to 

MOV 

XS,  AX 

/memory  block  addrtaa 

MOV 

CX,15 

zuatd  to  convert  [HiBar] 

SUB 

CL, [HiBar] 

/off  of  highlight  bar 

MOV 

AX, [TopBar] 

/get  top  of  aertan 

ADD 

AX,  CX 

/index  record  no  to  ax 

MOV 

CL,  32 

/record  length 

MUL 

CL 

/ax  ■  memory  blk  offaet 

ADD 

AX,  4 

zptr  to  4th  byte 

MOV 

DZ,  AX 

/offaet  in  mem  blk 

MOV 

AL,'*' 

/tag  marker 

MOV 

[XS :DZ] , AL 

/mark  the  record 

CALL 

DZSPLAYZDS 

/aend  to  the  acreen 

CLC 

/clear  carry  ■  data  OKI 

POP 

XS 

POP 

DX 

/reetore  regiatara 

POP 

CX 

POP 

BX 

POP 

AX 
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SMDP 


UT 

TAG 


Format  for  tha  mamory  indax: 

words  ID  number, 4  spaces, 20  charaetar  ZD  string,  4  spaeaa,2  hax  raroa 
Notax  Record  numbar  0  axiats  and  ia  markad  aa  raeord  0  but  ia  navar  aortad. 
Raoond  numbar  MaxXd  ♦  1  axiat  but  ia  navar  markad  or  aortad. 

Note:  rac  0  and  Kaxld  +  X  ara  add  to  allow  quick  binary  aaarchaa. 

Tag  highlightad  bar  ID  in  indax  fila. 
byta  [HiBar]  *  which  bar  ia  highlighad  bar  (1  to  15) 
word  [TopBar]  ■  indax  itam  at  top  to  scraan  (1  to  Kaxld) 


PROC 


UNDP 


PROC 


ITls 


ONTAQ 

POSH 

AX 

/save  registers 

POSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

BS 

MOV 

AX, [VarSeg] 

;sat  ragistar  to 

MOV 

BS,  AX 

; mamory  block  addrasa 

MOV 

CX,  15 

;uaad  to  convart  [HiBar] 

SOB 

CL, [HiBar] 

/off  of  highlight  bar 

MOV 

AX, [TopBar] 

/ gat  top  of  acraan 

ADD 

AX,  CX 

/ indax  racord  no  to  ax 

MOV 

CL,  32 

j racord  langth 

MOD 

CL 

;ax  ■  mamory  blk  offset 

ADD 

AX,  4 

/ptr  to  4th  byte 

MOV 

DI.AX 

/offset  in  mam  blk 

MOV 

AL, '  ' 

/tag  marker 

MOV 

[BS:DI] , AL 

/mark  tha  racord 

CALL 

DISPLAYIDS 

/send  to  the  screen 

CLC 

/clear  carry  ■  data  OKI 

POP 

BS 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

RBT 

UNTAG 

AX 

Ara  any 

of  tha  mamory  indax  IDa  taggad  ? 

Input  a 

nona 

Output  < 

■  carry  flag  if  no  ID' a  are  tagged 

IS  TAG 

POSH 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

BS 

MOV 

AX, [VarSeg] 

/set  register  to 

MOV 

BS,  AX 

; memory  block  address 

MOV 

CX, [MaxID] 

/loop  counter 

MOV 

DI,4 

/offset  in  racord 

MOV 

AL, '  ' 

/untag  marker 

MOV 

BX,  32 

/record  langth 

ADD 

DI,  BX 

CMP 

[BS :DI] , AL 

LOOPZ 

IT1 

JNZ 

IT2 

CALL 

CLBARMBSSAGB 

MOV 

CL, [Color] 

/store  original  Color 
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IT2 : 
IT3 : 


BNDP 


PROC 


PT1: 


7T2 : 


FT3 : 


wav 

AL, [Warning] 

/ warning  color 

MOV 

[Color] , AL 

>set  color 

MOV 

AX, 020Ah 

; row/ Col 

CALL 

GOTOYX 

;set  cursor 

CALL 

CSTR  OUT 

/display  warning 

db 

'  Usa  the  "Tag"  command  to  mark  the  IDs 

to  print . ' 

db 

'  Press  Any  Key  ' , 0 

wav 

[Color] ,CL 

/restore  original  color 

CALL 

HXDB  CUR 

CALL 

BRR  SOUND 

CALL 

GBTCHAR 

STC 

JMP 

SHORT  XT3 

CLC 

/dear  cf  a  continue 

POP 

IS 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

XS  TAG 

Pind  the  next  tagged  Xd  in  tha  memory  index 

Input  a 

none 

Output 

a  AX  a  Dat  record  no.  (1  to  MaxXd) 

or  carry  flag  in  NO  tagged  found. 

FIND  TAG 

POSH 

BX 

PUSH 

CX 

POSH 

DX 

PUSH 

BS 

MOV 

AX, [VarSeg] 

/ set  register  to 

MOV 

BS,  AX 

/memory  block  address 

MOV 

CX,  [MaxID] 

/loop  counter 

MOV 

** 

ia 

H 

Q 

/offset  in  record 

MOV 

AL, 

/untag  marker 

MOV 

BX,  32 

/record  length 

XOR 

DX,DX 

/index  counter  to  0 

ADD 

DX,BX 

INC 

DX 

/count  a  count  +  1 

CMP 

[BS:DX]  ,  AL 

/is  it  tagged  ? 

JZ 

FT2 

;if  yes  exit  loop 

LOOP 

FT1 

/look  at  next  ID 

CALL 

DISPLAYIDS 

/show  IDs 

STC 

/carry  flag  a  not  found 

JMP 

FT3 

/exit  NOT  found 

SUB 

DI,4 

/ptr  to  dat  rec  no 

MOV 

AX, [BS:DX] 

/get  DAT  RecMo 

MOV 

[TopBar] , DX 

/set  display  variable 

MOV 

BYTB  PTR  [HiBar] , 15 

/move  bar  to  top 

ADD 

DX,  4 

/ptr  to  tag  position 

MOV 

BYTB  PTR  [8S:DX]  , '  ' 

/untag  the  ID 

CALL 

DISPLAYIDS 

/show  IDs 

CLC 

POP 

BS 

POP 

DX 

POP 

CX 

POP 

BX 

RBT 

FIND  TAG 

BNDP 

/ 
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CODS 


Print  all  factors  for  the  SLDI. 

Input  ■  BZ  >  pointer  to  Type  6  (factor  nana)  in  CFGTbl. 

CX  ■  row  position  on  papa 
Output  ■  AX  ■  naw  row  position  on  paga 
Local  variables: 

BX  -  Start  Ptr  to  CFGTbl 
CX  »  paga  row  in  hex  (0  -  44) 


PROC 


t 


PRF1 : 
PRF2 : 


> 


I 


PRF3: 


PRINT 

FACTOR 

POSH  ~ 

BX 

PUSH 

ex 

PUSH 

DX 

XOR 

AL,  AL 

;zero  to  al 

MOP 

[Tint] , AL 

;set  tint  light 

draw  scala  lina  and  top  lina  of  box 

MOV 

AL,22h 

jcol  in  hex 

MOV 

AH,  CL 

i row  in  hex 

CALL 

HPGOTOYX 

:set  positon 

JC 

PRF4 

; exit  on  error 

MOV 

AX, Offset  Top 

;ptr  to  draw  top  string 

CALL 

PRINT  STRING 

;draw  first  2  lines 

JC 

PRF4 

/exit  on  printer  error 

INC 

CX 

»adv  row  counter 

INC 

ex 

; adv  row  counter 

CALL 

PRINT  NAMB 

jprt  factor  name 

JC 

PRF5 

; exit  on  abort  cmd 

JMP 

SHORT  PRF2 

; do  not  adv.  row  count 

INC 

CX 

;adv  row  counter 

ADD 

BX,  4 

; adv  config  pointer 

CMP 

WORD  PTR  [BX] , 6 

;is  this  an  answer  file? 

JNC 

PRF4 

;ls  NO  then  done. 

CALL 

READ  RNK  RXC 

;read  7  bytes  to  OutBuf 

JC 

PRF5 

XOR 

AL,  AL 

;zero  to  al 

MOV 

[Others] ,AL 

tm ark  Others  bar  TRUE 

print  type  of  lina:  Saif, 

Pears,  Superiors, 

or  Subordinates 

MOV 

AL,22h 

;col  in  hex 

MOV 

AH,  CL 

j  row  in  hex 

CALL 

HPOOTOYX 

/set  positon 

JC 

PRF5 

;exit  on  error 

MOV 

AX, Offset  Subor 

;ptr  to  subordinate  line 

CMP 

WORD  PTR  [BX] , 1 

;is  it  a  subordinate? 

JZ 

PRF3 

;if  YES  print  it 

MOV 

AX, Offset  Super 

;ptr  to  superior  line 

CMP 

WORD  PTR  [BX] , 2 

;is  it  a  superior? 

JZ 

PRF3 

/if  YES  print  it 

MOV 

AX, Offset  Pear 

;ptr  to  peer  lina 

CMP 

WORD  ~TR  [BX] , 3 

;is  it  a  peer? 

JZ 

PRF3 

;if  YES  print  it 

is  this 

a  self  bar  or  self 

data  for  an  Other 

bar  ? 

MOV 

AX, [BX  +  4] 

;get  the  next  file  type 

CMP 

AX, [BX] 

/are  they  both  self's 

JNZ 

PRF2 

;if  NO  then  skip  self 

MOV 

AL, OFFh 

/ 

MOV 

[Others] ,  AL 

mark  Others  bar  FALSE 

MOV 

AX, Offset  Saif 

/else  oust  be  a  self  bar 

CALL 

PRINT  STRING 

;ptr  box  side  and  nane 

JC 

PRF5 

; ax it  on  printer  error 

CALL 

PRINT  RANGB 

/ print  range  of  swans 

JC 

PRF5 

1  exit  of  abort  cad 
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{25th,  50th,  and  75th 


PRF4 1 


PUTS: 


ENDP 


PRINT  PIRCRNT 

ore 

PRF5 

CALL 

PRINT  MEANS 

JC 

PRF5 

JMP 

SHORT  PRF1 

print 

tha  bottom  lina  < 

MOV 

AL, 22h 

MOV 

AH,  CL 

CALL 

HPGOTOYX 

JC 

PRF5 

MOV 

AX, Off sat  Bot 

CALL 

PRINT  STRING 

JC 

PRF5 

INC 

CX 

INC 

CX 

CLC 

MOV 

AX,  CX 

POP 

DX 

POP 

CX 

POP 

BX 

RRT 

; print  Man  aeoraa 
;axit  of  abort 


}Col  in  hax 

>  row  in  hax 

{set  positon 

{exit  on  arror 

;ptr  to  draw  top  string 

{draw  first  2  linas 

;axit  on  pr intar  arror 

;adv  row  eountar 

;adv  row  countar 

;  rsturn  naw  row  count 
;rastora  ragistars 


PRINT  FACTOR 


PROC 


-Print  tha  Factor  Ham. 

Input  m  BX  m  ptr  to  Factor  Name  data  typa 
CX  ■  row 

Output  m  Factor  nam  to  tha  scraan 

This  routina  will  split  nau  if  largar  tha  24  charactars. 
It  aborts  tha  nam  if  it  is  longar  than  36  charactars 
or  a  singla  word  with  more  than  24  lattars. 

PRINT  NAME 


PUSH 

AX 

; sava  ragistars 

POSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX, Off sat  BON 

;Bold  ON  string 

CALL 

PRINT  STRING 

{turn  bold  on 

JC 

PFN6 

MOV 

AX, [BX  ♦  2] 

;ptr  to  factor  nau 

CALL 

COPT  HEAP  STR 

{ oova  to  [FilBuf] 

CMP 

AX,  37 

{is  name  length  >  367 

JNC 

PFN5 

{if  YES  do  not  display 

CMP 

AX,  25 

{is  nau  length  >  24  7 

JC 

PFH4 

{if  NO  display  string 

■look  for  a  placa  to  divida  tha  factor  name  into  two  linas 


PFN1: 


PFN2 1 


DEC 

AX 

{ lanth  -  length  -1 

MOV 

BX,  Offset  FilBuf 

{ptr  to  bag  if  string 

MOV 

DX,BX 

{save  start  ptr  in  dx 

ADD 

BX,  AX 

{ptr  to  last  char  in  str 

CMP 

BYTE  PTR  [BX] , '  ' 

{is  this  a  space  7 

JZ 

PFN2 

{if  yes  goto  next  test 

CMP 

BYTE  PTR  [BX],'/' 

{is  it  a  backslash  7 

JZ 

PFN2 

{if  YES  goto  next  tost 

DEC 

AX 

{lanth  ■  length  -1 

JZ 

PFN5 

{exit  if  can  not  divida 

JMP 

SHORT  PFM1 

{else  look  a  next  char 

have  wa 

shorten  it  enough  7 

CMP 

AX, 25 

{is  nan  length  >  24  7 

JC 

PFN3 

{if  YES  split  nan 

DEC 

AX 

{lanth  ■  length  -1 
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j if  MO  keep  looking 


l - 

PFN3 1 


JMP 

PVN1 

-split 

tha  factor  nano 

XOR 

XL,  AL 

MOV 

[BX] ,  XL 

-display  2nd  half  of  si 

MOV 

AL,8h 

MOV 

AH,  CL 

XMC 

AH 

CALL 

HPQOTOYX 

JC 

PFN6 

INC 

BX 

MOV 

AX,BX 

CALL 

PRINT  STRING 

JC 

PFN6 

7 0  -  endof  string  urktr 
; mark  and  of  first  str 

;col  in  hex 

; row  in  hex 

; print  on  next  row 

;a«t  positon 

7  exit  on  error 

jptr  to  bog.  of  2nd  half 

;ptr  to  string 

;prt  wnd  half  of  naaM 


-display  1st  half  of  string 


PPN4  s 

MOV 

AL,  8h 

7 col  in  hex 

MOV 

AH,  CL 

; row  in  hex 

CALL 

HPGOTOYX 

7  set  positon 

JC 

PPNS 

;exit  on  error 

MOV 

AX, Offset  PilBuf 

7  ptr  to  string 

CALL 

PRINT  STRIMO 

;prt  wnd  half  of  name 

JC 

PFN6 

PPNS  t 

MOV 

AX, Offset  BOFF 

7 Bold  Off  string 

CALL 

PRINT  STRING 

; turn  bold  off 

PPN6 : 

POP 

OX 

7 restore  registers 

POP 

ex 

POP 

BX 

POP 

AX 

RXT 

HMDP 

7 

PRINT 

NAME 

; 

; - 

--Print 

a  report  for  each  tagged 

ID 

number  in 

the  memory  index  file. 

7 

Input 

m  (one  or  more  ID'S 

are 

tagged) 

7 

Output  ■  Mono 

7 

Local 

variables : 

7 

BX  - 

Start  Ptr  in  tha  CFGTbl 

7 

CX  - 

starting  page  row  in 

hex 

(0, 

1,  or  2) 

7 

OX  « 

Stop  Ptr  in  the  CfgTbl  (next 

start  ptr) 

7 

Notoi 

[HOF]  is  being  used 

to  nark 

s 

1 

0 

Hi 

the  config  table. 

PROC 

PRINT 

RXPORTS 

POSH 

AX 

7  save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

INITIALIZE  HP 

7hp  to  portrait  mode 

JC 

PRA4 

7 exit  if  printer  error 

CALL 

PRINT  INSTRU 

7 message  box  to  screen 

7 - 

-locato 

next  tagged  ID 

PRAls 

CALL 

FIND  TAG 

7 get  DAT  RecNo  in  ax 

JC 

PRA3 

7  cf  «  no  more  tags 

CALL 

READ  DAT  RXC 

;axa>RecNo  (1  to  Maxld) 

JC 

PRA5 

7 exit  on  DOS  error 

MOV 

AX, [RNXHd] 

7  set  rank  file  ptr 

CALL 

GOTO  TOP 

7 to  top  of  file. 

JC 

PRA5 

7  exit  on  DOS  error 

XOR 

AX, AX 

7sero  to  ax 

MOV 

[EOF] , XL 

7mark  EndOfFile  False 

CALL 

PROGRESS  MESSAGE 

7  inform  user  of  prog. 

MOV 

DX, Offset  CFGTbl 

7 assign  start  ptr 

PRA2 : 

CALL 

GET  PAGE  INFO 

7 get  row  &  stop  ptr 
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JC 

PRA4 

; ax it  on  config  arror 

MOV 

CX,AX 

} starting  row  in  ex 

xc so 

BX,DX 

;bx»start  dx-atop 

CALL 

SIT  TIMI 

;sat  [time]  ticks 

CALL 

PRINT  PAOI 

/ print  this  paga 

JC 

PRA4 

; axit  on  abort  cad 

CALL 

CHICK  TIMI 

;chack  timing  ticks 

CMP 

BYT!  PTR  [IOF] , 0 

; and  of  config  tabla  ? 

JZ 

FRA2 

7  if  NO  print  naxt  paga 

JMP 

SHORT  PRA1 

;goto  naxt  ID  raport 

; - 

-nonul 

axit  point 

PRA3 : 

CALL 

RISTORI  HP 

;raaat  to  normal  defaults 

CLC 

; normal  axit 

JMP 

SHORT  PRA5 

; - 

-abort  «xi t  point 

PRA4 : 

CALL 

RISTORI  HP 

STC 

; abort  or  arror  axit 

PRA5 : 

POP 

DX 

; restore  ragistara 

POP 

CX 

POP 

BX 

POP 

AX 

HIT 

BMDF 

7 

PRINT 

RIPORTS 

7 

7 - 

--Print 

on*  page  use  tha  LPT  port  and  a  HP 

LaserJet  printer. 

7 

Input 

m  BX  *  Start  Ptr  in  tha  CFOTbl 

7 

CX  ■  atarting  row  in  hax  (0,  1, 

2,  or  3) 

; 

DX  a  Stop  Ptr  in  tha  CfgTbl 

/ 

Output 

*  Cary  flag  -  abort  printing 

PROC 

PRINT 

PAG! 

PUSH 

AX 

; sava  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

PRINT  TITLB 

/print  first  5  lines 

JC 

PP4 

; exi t  on  abort  cmd 

ADD 

CX,  5 

;advance  row  count 

7 - 

-advanca 

BX  until  factor  nama  or  BX  ■  DX 

PP1 : 

CMP 

BX,DX 

;is  this  tha  stop  ptr 

JNC 

PP3 

;if  Yes  than  BndOfPage 

CMP 

WORD  PTR  [BX] , 6 

; is  factor  nama  ? 

JZ 

PP2 

; if  YBS  print  factor 

ADD 

BX,  4 

/advance  config  ptr 

JMP 

SHORT  PP1 

; check  next  type 

PP2: 

CALL 

PRINT  FACTOR 

;ret.  new  row  ct  in  AX 

JC 

PP4 

/exit  on  abort  ^md 

MOV 

CX, AX 

/save  new  row  count 

ADD 

BX,  4 

;adv  past  factor  name 

JMP 

SHORT  PP1 

/loop  until  BX  »  DX 

PP3 : 

CALL 

PRINT  BOTTOM 

JC 

PP4 

/exit  on  abort  cmd 

CALL 

IJSCT 

JC 

PP4 

/exit  of  abort  cmd 

CLC 

/clear  carry  flag 

PP4 : 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

MIDP 

PRINT 

PAG! 
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/ - Print  a  titla  on  the  HP  laser . 

;  Input  m  CX  m  starting  row 

i  Output  ■  AX  •  naw  starting  row 

PBOC  PRINTTITLB 

POSH  BX 

PUSH  CX 

POSH  DX 

MOV  AH, CL 

MOV  AL, 21b 

CALL  HPOOTOTX 

JNC  PTA 

JMP  PT5 

PTA:  MOV  AX,Of£sat  Hadar 

CALL  PRINTSTRINQ 

JNC  PTB 

JMP  PT5 

PTB:  INC  CL 

INC  CL 

MOV  AH, CL 

MOV  AL,8h 

CALL  HPOOTOTX 

JNC  PTC 

JMP  PT5 

PTC:  CALL  COPT  ID 

MOV  AX,0?fsat  IDstr 

CALL  PRINTSTRINQ 

JC  PT5 

/ - print  group  titla 

MOV  SI, BX 

ADD  SI, 4 

PT4 :  SOB  SI, 4 

CMP  WORD  PTR  [SI] ,7 

JMZ  PT4 

INC  SI 

INC  SI 

MOV  AX, [SI] 

CALL  COPTJBHAPSTR 

SHR  AL,  1 

MOV  AH,  AL 

MOV  AL, 53 

SOB  AL,  AH 

MOV  AH, CL 

CALL  HPOOTOTX 

JC  PT5 

MOV  AX,0££aat  FilBuf 

CALL  PRINTSTRINQ 

JC  PT5 

j - print  scorad  data 

MOV  AL, 53h 

MOV  AH, CL 

CALL  HPOOTOTX 

JC  PT5 

MOV  AX,0££aat  DTStr 

CALL  PRINTSTRINQ 

JC  PT5 

; - print  "FACTORS:"  and  turn  o££  bold  print 

INC  CL 

INC  CL 

MOV  AH, CL 

MOV  AL, 8h 


; save  ragiatara 


l  row  poaition 
; column  poaition 


i exit  on  printar  arror 
iptr  Titla 

/string  holds  Bold  ON 
/axit  on  printar  arror 


/row  poaition 
» column  poaition 


; exit  on  printar  arror 
/place  ID  in  print  atr 
;ptr  to  data  string 
; print  "ID  :■ 


; conf ig  ptr  to  ai 

/dacreasa  type  ptr 
;is  it  group  titla? 

;i£  NO  loop 
; adv  ptr  to  gat 
;o£fsat  in  haap 
; load  pt  to  group  titla 
; nova  to  [FilBuf] 

; divide  length  by  2 
;  save  in  ah  ragistar 
/center  column  position 
/column  position 
/row  position 

/exit  on  printar  arror 


/axit  on  printar  arror 
/col  hax 


/axit  on  printar  arror 


/ row  poaition 
/column  position 


/exit  on  printer  error 
i string  holds  Bold  OFF 


CALL 

HFGOTOYX 

JC 

PT5 

MOV 

AX, Offset  DIStr 

MT.T. 

PRINT  STRING 

JC 

PT5 

MOV 

AH, CL 

MOV 

AL,48 

CALL 

HP GOTO YX 

JC 

PT5 

7 - 

-  is  it 

a  POS  or  NBG  report 

MOV 

SI,BX 

SUB 

SI, 4 

PTli 

ADD 

SI, 4 

CMP 

WORD  PTR  [SI] , 5 

JZ 

PT2 

CMP 

WORD  PTR  [SI] ,4 

JNZ 

PT1 

MOV 

AX, Offset  NegT 

JMP 

SHORT  PT3 

PT2  t 

MOV 

AX, Offset  PosT 

PT3 : 

CALL 

PRINT  STRING 

JC 

PT5 

PT5 1 

MOV 

AX,  CX 

POP 

DX 

VOP 

CX 

POP 

RBT 

BX 

BNDP 

PRINT 

TITLE 

i 


; 

;  -  -  - 
; 

/ 

PROC 


PBlt 


BNDP 


Print  ths  bottom  instruction  box. 

Input  *  CX  ■  starting  row 

Output  rn  AX  rn  now  starting  row 

PRINTBOTTOM 

PUSH  BX 

PUSH  CX 

POSH  DX 

MOV  AH, CL 

MOV  AL, 22h 

CALL  HP GOTO YX 

JC  PBl 

MOV  AX, Offset  Inform 

CALL  PRINTSTRING 

MOV  AX, CX 

POP  DX 

POP  CX 

POP  BX 

RBT 

PRINT  BOTTOM 


, . -Copy  ID  from  [PIBuf]  to  [ID]  in  print  string 

/  Input  •  none 

l  Output  ■  none 

PROC  COPYID 

PUSH  AX 

PUSH  BX 

PU8H  CX 

PUSH  DX 

PUSH  BS 

MOV  AX,DS 

MOV  BS, AX 

MOV  SI, Off sot  SFlBuf 
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; row  position 
;  column  position 

/exit  on  printer  error 

;config  ptr  to  si 

; advance  type  ptr 
; is  it  positive  ? 

; if  YBS  stop  loop 
/is  it  negative  ? 

; if  NO  loop 

;ptr  to  derailment  str 
; jump  to  print  the  str 
/ptr  to  positive  str 
» print  the  string 
;exit  on  printer  error 
/return  row  position 
/restore  registers 


/save  registers 


/row  position 
•column  position 

/exit  on  printer  error 
/bottom  information  box 

/return  row  position 
/restore  registers 


/save  registers 


/make  BS  *  DS 
/source  ptr 


MOV 

DI,0£faat  ID 

/dastiaation  ptr 

MOV 

CX,10 

; numbar  of  words 

CLD 

;auto  inc  SI  &  DI 

UP 

M0V8W 

; copy  all  20  bytas 

CLC 

POP 

ss 

POP 

DZ 

;r as tor a  ragi stars 

POP 

CX 

PC 

BX 

POP 

AX 

RST 

COPYID 

.CODS 

Sand  ASCII  string  to  tha  Lina  Printar  at  port  [LPT] 


/ 

Input  ■ 

AX  pointar  to  baginning  of  string  in  data  aaction 

/ 

CH  m  numbar  of  trias  if  busy  CL  - 

stora  char 

/ 

Output  i 

■  Carry  flag  ■  abort  printing 

PROC 

PRIST  STRING 

POSH 

AX 

;sava  ragi stars 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX,  AX 

;ptr  to  ASCII  string 

XOR 

CH,  CH 

/zaro  loop  countar 

; - 

- -Chack  kayboard  buffar  to  saa  if  tha  <Bsc>  kay  baan  prassad? 

PS1: 

MOV 

AX,0600h 

;DOS  function  #  6 

MOV 

DL, OFFh 

;raad  char  from  kay- 

1ST 

21h 

; board  buffar. 

JZ 

PS2 

;NO  kay  prassad  continua 

CMP 

AL.lBh 

jwas  it  tha  <BSC>  kay? 

JNZ 

PS2 

/ if  HO  continua 

CALL 

PRT  SRROR3 

; if  YSS  inform  usar 

JC 

PS8 

; carry  flag  -  abort 

; - 

•-gat  charactar  to  ba  sant  to  LPT  port 

PS2 : 

MOV 

AL, [BX] 

; load  Char  to  sand 

CMP 

AL,  0 

;is  this  and  of  string? 

JZ 

PS8 

;if  yas  normal  axit. 

/ - 

--sand  charactar  to  assignad  LPT  port 

MOV 

AH,  0 

;BIOS  function  numbar 

MOV 

DX, [LPT] 

;gat  LPT  port  assign. 

1ST 

17h 

/gat  port  status 

CMP 

BITS  PTR  [DaBug] , 0 

/is  dabug  ON  ? 

JZ 

PS3 

/if  HO  goto  naxt  tast 

CALL 

SHOW  AH 

/bitmap  of  AH  to  scraan 

; - 

•-tast  bit 

5  of  8.  If  bit  5  ■  0  than  no  powar 

• 

PS3 1 

TSST 

AH, lOh 

/Is  printar  powarad  up? 

JNZ 

PS5 

/OKloO  goto  naxt  tast 

CALL 

PRT  SRROR1 

/display  arror  massaga 

JC 

PS8 

/carry  flag  ■  abort 

CALL 

PROGRESS  MSSSAQB 

/inform  usar  of  prograss 

JMP 

SHORT  PS1 

/sand  sama  char  again 

/ - 

•-tast  bit 

4  &  6  of  8.  bit  4  «  I/O  arror;  6  » 

printar  out  of  papar. 

PS5: 

XOR 

CH,  CH 

/loop  countar  to  zaro 

TSST 

AH,28h 

/ I/O  or  out  of  papar? 

JZ 

PS6 

/if  NO  sand  char 

CALL 

PRT  BRROR2 

/if  YSS  tall  usar. 

JC 

P88 

/cf  -  abort 

CALL 

PROOUSS  MESSAGE 

/inform  usar  of  prograss 

JMP 

SHORT  PS1 

/sand  sama  char  again 

7 - 

--tast  bit 

1  of  8.  If  bit  1  ■  1  than  printar 

tima-out 
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net 


PS7  t 
PS8: 

/ 

/ 

/ 

PROC 


PRX1: 

PRK2 : 

PRB3 : 
PRK4  t 
PRX5: 

KNDP 

/ 

/ 

/ 

PROC 


TBflT 

AH,  01 

JZ 

P87 

CALL 

PRT  XXROR4 

JC 

P88 

CALL 

PROGRXSS  MXSSAQB 

JMP 

SHORT  PS1 

me 

BX 

JMP 

SHORT  PS1 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

Input  ■  non* 

Output  ■  carry  flag  ■  abort  printing 

PRTKRROR1 

POSH  AX 

POSH  BX 

PUSH  CX 

PUSH  OX 

riT.T.  dJSARJKXSSAQS 

MOV  CL, [Color] 

MOV  AL, [Warning] 

MOV  [Color]  ,AL 

MOV  AX,020Bh 

CALL  GOTOYX 

nXT.r.  CSTR_OUT 

db  ■  Printer  1*  off  lin*.  Do  you  want  to 

db  "  Y/N  ",0 

MOV  [Color] ,CL 

r*AT.T.  HIDBCUR 

CALL  KRRSOUND 

r-AT.r.  OKTCHAR 

ADD  AL.SFh 

CMP  AL. 'N' 

JZ  PRK4 

CMP  AL. 'Y' 

JNZ  PRK3 

r-AT.T.  CLBARJMBSSAQB 

cz«c 

JMP  SHORT  PRK5 

CALL  KRRSOUND 

JMP  SHORT  PRK1 

rar.r.  CLKARMBSSAOB 

STC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RXT 

PRT  BRROR1 


input  m  non* 

Output  •  carry  flag  ■ 

PRTBRR0R2 

PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

CALL  CLIARjnSSAOB 

MOV  CL, [Color] 


abort  printing 


;1*  printer  tin* -out? 
j if  MO  send  next  char 
/inform  u**r  or  timeout 
jef  ■  abort  else 
/inform  user  of  progress 
/send  sane  char  again 
/point  to  next  char 
/ loop  until  finished 
/restore  registers 


/ empty  message  line 
/store  original  Color 
/warning  color 
/set  color 
/row  3 /Col  12 
/set  cursor 
/display  warning 
try  again  ?  • 

/restore  original  color 


/turn  off  bits  6  ft  8 
/is  it  Ho? 

/if  yes  exit 
/is  it  Yes? 

/if  not  continue 
/empty  message  line 
/dear  carry  flag 
/exit 


/empty  message  lin* 
/ set  carry  flag 


/store  original  Color 
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MOV 

AL, [Warning] 

/warning  color 

MOV 

[Color] ,AL 

/sat  color 

MOV 

AX,0207h 

/ row  3 /Col  12 

CALL 

OOTOYX 

/sat  cursor 

CALL 

CSTR  OUT 

/display  warning 

db 

■  Printer  Error. 

Chack 

th*  paper.  Do  you  want  to  continua  ?  ■ 

db 

•  Y/N  -,0 

MOV 

[Color] , CL 

/restore  original  color 

PRR1: 

CALL 

HID1  CUR 

CALL 

RRR  SOUND 

CALL 

QIT  CHAR 

AMD 

AL,5Ph 

/turn  off  bit  6  &  8 

CMP 

AL,  'N' 

/is  it  Mo? 

JZ 

PRR4 

/if  yes  exit 

PRK2 : 

CMP 

AL, 'V' 

/is  it  Yes? 

JNZ 

PRR3 

/if  not  continua 

CALL 

CLRARMRSSAGR 

/empty  massage  line 

CLC 

/dear  carry  flag 

JKP 

SHORT  PRR5 

/exit 

PRR3 : 

CALL 

RRR  SOUND 

JMP 

SHORT  PRR1 

PRR4: 

CALL 

CLKARMSSSAGH 

/empty  message  line 

arc 

/set  carry  flag 

PRR5 : 

POP 

DX 

POP 

ex 

POP 

BX 

POP 

AX 

RMT 

RNDP 

/ 

PRTRRROR2 

/ 

/ 

Input  ■ 

non* 

t 

Output 

■  carry  flag  » 

abort  printing 

PROC 

PRT  ERROR3 

PUSH 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

CALL 

CLRARMRSSAGR 

MOV 

CL, [Color] 

/store  original  Color 

MOV 

AL, [Warning] 

/warning  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX,020Bh 

/ row  3/Col  12 

CALL 

QOTOYX 

/set  cursor 

CALL 

CSTR_OUT 

/display  warning 

db 

■  Do  you  want 

to 

ABORT 

th*  print  instructions  ?  ” 

db 

■  y/M  «,o 

MOV 

[Color] ,CL 

/restore  original  color 

PSH1: 

CALL 

HIDE  CUR 

CALL 

GET  CHAR 

AMD 

AL, 5Fh 

/turn  off  bit  6  fc  8 

CMP 

AL, 'N' 

/is  it  No? 

JZ 

PEE4 

/if  yes  exit 

PKB2 : 

CMP 

al,  »y» 

/is  it  Yes? 

JMZ 

PEE3 

/if  not  continue 

CALL 

CLRARMRSSAGR 

/empty  message  line 

STC 

/set  carry  flag  »  abort 

JMP 

SHORT  PBB5 

/exit 

PB3 : 

CALL 

RRR  SOUND 

JMP 

SHORT  PBR1 

PXR4t 

CALL 

CLRARMRSSAGR 

/empty  message  line 

CLC 

/clear  cf  -  continue 
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PRT  BRR0R3 


Input  i 

■  nona 

Output 

■  carry  flag  ■  abort  printing 

PUT  KHKOR4 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLXAR  MBSSAfll 

jstora  original  Color 

MOV 

CL, [Color] 

MOV 

AL, [Warning] 

{warning  color 

MOV 

[Color] ,AL 

{sat  color 

MOV 

AX,0a07h 

j  row  3/Col  12 

CALL 

GOTOTX 

;sat  cursor 

CALL 

CSTR  OUT 

/display  warning 

db 

■  Printer  Tina-Out.  Prass  any  kay  to 

try  again  or  <Rse>  " 

db 

"to  abort.  ",0 

{r as tor a  original  color 

MOV 

[Color] , CL 

CALL 

HIDB  CUR 

CALL 

BRR  SOUND 

CALL 

GRT  CHAR 

CMP 

AL, lBh 

{is  it  <Xsc> 

JHZ 

RPP1 

{if  yas  axit 

STC 

{sat  carry  flag  ■  abort 

JMP 

SHORT  RPP2 

{axit 

CALL 

CLXAR_MH8SAOH 

{anpty  nassaga  lina 

CLC 

{daar  cf  ■  continua 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

RHT 

AX 

PRT  HRROR4 

PRINT 

STRING 

-Print  tha  data  points  on  aach  bar. 

Input  *  assunas  byta  valua  in  SPIBuf. 

offsat  in  SPIBuf  can  ba  found  in  word  [Outbuf  +  5] 
if  this  is  a  Saif  bar  [Othars]  will  ■  0 
CL  m  row  position 

Output  -  Cary  flag  »  abort  printing 


PRINTJKBANS 
PUSH  AX 

PUSH  BZ 

PUSH  CX 

PUSH  DX 

gat  pointar  to  maan  position  if  SPIBuf 
MOV  BX, Off sat  OutBuf  ♦  5 

MOV  AX,  [BX] 

MOV  BX, Off sat  SPIBuf 

ftnw  BX,  AX 

CMP  BTTI  PTR  [Othars] ,  0 


JMZ  CPI 


;sava  ragistars 


;o£fsat  to  got  offsat 
; load  offsat 
;load  basa  ptr 
ibx  points  to  naan 
; is  this  a  salf  bar? 
;if  yas  goto  plot_sal£ 


1 - 

-plot  the  Others  value 

CALL 

PLOT  OTHERS 

{if  No  plot  others 

JC 

era 

I  exit  on  abort  cad 

SIC 

ax 

{pointer  to  self  assn 

CPIs 

CALL 

PLOT  SSLP 

>plot  the  self  aean 

JC 

CP2 

{exit  on  abort  cad 

CLC 

CP2 1 

POP 

DX 

{restore  registers 

POP 

ex 

POP 

ax 

POP 

AX 

HIT 

SHOP 

; 

PRINT 

MEANS 

; 

i - 

--Print 

the  Othara  data  point. 

; 

Input 

•  BX  ■  ptr  to  naan  score. 

; 

CL  «  row  postion 

; 

Output  -  Cary  flag  -  abort  printing 

PROC 

PLOT  OTHERS 

POSH 

AX 

{save  registers 

POSH 

BX 

PUSH 

ex 

PUSH 

DX 

, - 

-aat  cursor 

MOV 

AL,30h 

{ column  position 

MOV 

AH, CL 

{row  position 

CALL 

HPGOTOYX 

{set  positon 

JC 

PLOS 

{exit  on  printer  error 

MOV 

AL, [BX] 

{get  mean  score 

CMP 

AL, OAh 

{is  it  to  small? 

JC 

PLOS 

{if  yes  exit  no  error 

CMP 

AL,  51 

{if  it  to  large  ? 

JNC 

PL05 

{if  yos  exit  no  error 

XOR 

AH,  AH 

{convert  to  16  bits 

MOV 

CL,  10 

{ divisor 

DIV 

CL 

{ ahatenths  al-units 

MOV 

DX,AX 

{save  values  in  DX 

XOR 

ex, ex 

{zero  to  loop  counter 

MOV 

CL,DL 

{units  to  cl 

SIC 

ex 

{scale  starts  at  1  not  0 

JZ 

PL02 

{Skip  if  units  a  0 

MOV 

AX, Offset  Mextun 

{ptr  to  next  unit  str 

PLOl: 

CALL 

PRINT  STRING 

{advance  to  next  tens 

JC 

PL06 

{exit  on  printer  error 

LOOP 

PLOl 

{loop  until  tens  a  0 

PL02: 

XOR 

ex,  ex 

{zero  to  loop  counter 

ADD 

CL,DH 

{get  units  digit 

JZ 

PL04 

{if  zero  skip  units 

MOV 

AX, Offset  NextTn 

{ptr  to  next  units  str 

PL03 1 

CALL 

PRINT  STRING 

{advance  to  next  unit 

JC 

PLOS 

{exit  on  printer  error 

LOOP 

PL03 

{loop  until  units  -  0 

PL04  t 

MOV 

AX, Offset  Other 

{ptr  to  Other  string 

CALL 

PRINT  STRING 

{plot  point  in  chart 

JC 

PL06 

{exit  on  printer  error 

PL05: 

CLC 

FLO  6 : 

POP 

OX 

{restore  registers 

POP 

ex 

POP 

BX 

POP 

AX 
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rndp  plot_othrrs 

i 


l - Print  tha  Salt  data  point. 

i  Input  «  IX  *  ptr  to  naan  aeora. 

I  CL  m  row  poation 

i  Output  ■  Cary  flag  ■  abort  printing 

1 

PROC  PLOT  8 CLP 


PUSH 

AX 

;aava  ragiatara 

PUSH 

BX 

PUSH 

cx 

POSH 

ox 

1 - 

-ant  euraor 

MOV 

AL,30h 

;  colussn  poaition 

MOV 

AH,  CL 

; row  poaition 

CALL 

HPOOTOXX 

;aat  poaiton 

JC 

PL86 

;axit  on  printar  arror 

1 - 

-gat  data 

point 

MOV 

AL, [BX] 

;gat  aiaan  acora 

CMP 

AL,OAh 

;  ia  it  to  aaall? 

JC 

PLS5 

;if  yaa  axit  no  arror 

CMP 

AL,  51 

; if  it  to  largo  ? 

JMC 

PLS5 

;±f  yaa  axit  no  arror 

XOR 

AH, AH 

t convart  to  16  bita 

MOV 

CL,  10 

; diviaor 

DIV 

CL 

; ah- tan tha  al>unita 

MOV 

DX,  AX 

jaava  valuaa  in  DX 

XOR 

CX,CX 

;xaro  to  loop  countar 

MOV 

CIi,DL 

;unita  to  cl 

DXC 

CX 

; acala  atarta  at  1  not  0 

JZ 

PLS2 

;akip  if  unita  *  0 

MOV 

AX, Off aat  Naxtun 

iptr  to  naxt  unit  atr 

PLSls 

CALL 

PRINT  STRING 

; advanca  to  naxt  tana 

JC 

PLS6 

;axit  on  printar  arror 

LOOP 

PLS1 

; loop  until  tana  ■  0 

PL82: 

XOR 

OX  0  ox 

; xaro  to  loop  countar 

ADD 

CL,  OH 

;gat  unita  digit 

JZ 

PLS4 

;if  zaro  akip  unita 

MOV 

AX, Off aat  NaxtTn 

;ptr  to  naxt  unita  atr 

PLS3 : 

CALL 

PRINT  STRING 

; advanca  to  naxt  unit 

JC 

PLS6 

i axit  on  printar  arror 

LOOP 

PLS3 

; loop  until  unita  ■  0 

PLS4 : 

MOV 

AX, Off aat  Point 

i ptr  to  Point  atring 

CALL 

PRINT  STRING 

;plot  point  in  chart 

JC 

PLS6 

;axit  on  printar  arror 

PLS5: 

CLC 

PL86: 

POP 

DX 

;raatora  ragiatara 

POP 

CX 

POP 

BX 

POP 

AX 

RCT 

CUSP 

1 

PLOT_SSLF 

1 

la  tha  data  fila,  raport  typa 

and  LPT  port  raady? 

; 

Input  ■ 

NOna 
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'ROC 


fsave  registers 


Output  -  Carry  flag  if  Not  Ready. 
IS  PRINT 
pels  XX 


ptrsa 

PUSH 

PUSH 

BX 

cz 

in 

file  open  ? 

‘  "AN  WlbS 

MOV 

BX, [DATHd] 

> get  file  handle 

CMP 

BX,  0 

lie  a  file  open? 

JNZ 

PR1 

CALL 

PILR  RRR 

JMP 

SHORT  PR4 

^ . 

rank  file  open  ? 

"  WMA  •  bill 

PRlt 

CMP 

WORD  FTR  [RNXHd] , 0 

; is  rank  file  open  ? 

JNZ 

PR2 

t if  Tea  goto  next  test 

CALL 

RANK  RRR 

false  inform  user 

JMP 

SHORT  PR4 

; - 

--is  the  printer  on  line? 

PR2: 

CALL 

ON  LINK 

JNC 

PR3 

CALL 

LPT  RRR 

JMP 

SHORT  PR4 

1 - 

--read  index  file  into  memory  or  create  the  index 

file. 

PR3  < 

CALL 

GRT  INDRX 

freed  index  into  memory 

JNC 

PR5 

; jump  if  NO  error. 

CALL 

INDRX  RRR 

f should  not  happen I 1 1 

FR4t 

STC 

fsat  error  flag 

PR5t 

POP 

DX 

f restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RRT 

RNDP 

IS_PRINT 

1 

; 

Input  » 

none 

t 

Output  « 

■  none 

PROC 

LPT  RRR 
CALL 

CLRAR  MBS SAGS 

MOV 

AL, [Warning] 

f warning  color 

MOV 

CL, [Color] 

f  save  original  color 

MOV 

[Color] , AL 

fset  color 

MOV 

AX, 0207h 

f  row  3/Col  8 

CALL 

GOTOTX 

fset  cursor 

CALL 

CSTR  OUT 

f display  warning 

db 

'  Printer  Not  On  Linel  Check  power  or 

LPT  assignment . ' 

db 

'  Press  Any  Key.  ',0 

MOV 

[Color] , CL 

f restore  original  color 

CALL 

HIDR  COX 

CALL 

RRR  SOUND 

CALL 

GST  CHAR 

RRT 

RNDP 

LFTJCRR 

/ 

; 

Input  - 

none 

t 

Output  < 

■  none 

PROC 

INDRX  RRR 

CALL 

CLRAR  MSSSAGR 

MOV 

AL, [Warning] 

f warning  color 

MOV 

CL, [Color] 

fsave  original  color 

MOV 

[Color] ,  AL 

fset  color 

MOV 

AX, 0207h 

;row  3 /Col  8 

CALL 

GOTOTX 

fset  cursor 
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CALL 


> display  warning 
Call  703-751-3027  for  help.' 

i raatora  original  color 


Input  ■  none 
Output  ■  none 
RAMK 

nr.r.  CLXAR_MESSAGE 

MOV  AL, [Warning] 

MOV  CL, [Color] 

MOV  [Color] ,AL 

MOV  AX,0207h 

CALL  GOTOYX 

CALL  CSTR  OOT 

db  *  Use  tha  'Sank'  command 

db  '  Prana  Any  Kay.  ',0 

MOV  [Color], CL 

CALL  HXDK_COX 

CALL  KRRSOimD 

CALL  GKTCHAR 

RR 

RAMK  KRR 


{warning  color 
>aava  original  color 
/set  color 
; row  3/Col  8 
;aat  cursor 
/display  warning 
to  compute  tha  parcantllaa . * 

; raatora  original  color 


CALL 
CALL 
CALL 
RKT 

non  xrr 


CSTR  OUT 

'  Error  Tndawlng  tha  ID*  I 

'  Praaa  Any  Kay.  ',0 

[Color] , CL 

KZDR  COR 

KRR  SOUND 

OKT  CHAR 


Input  -  nona 
Output  a  nona 
PROGRKS  S JMKSSAGB 
POSH  AX 

POSH  BX 

POSH  CX 

POSH  DX 

MOV  AL, [Manu] 

MOV  CL, [Color] 

MOV  [Color] , AL 

MOV  AX,0107h 

r’AT.r.  GOTOYX 

CALL  CSTROUT 

db  '  Plaaaa  wait  . . . 

MOV  AX,  Offaat  SFIBuf 

MOV  CX, 20 

CALL  SOB  DSTR_OUT 

MOV  [Color], CL 

CALL  HIDBCOR 

POP  OX 

POP  CX 

POP  BX 

POP  AX 

RHT 

PROGRKS S  MESSAGE 


/menu  color 
; aava  original  color 
; aat  color 
; row  3/Col  8 
7 aat  cursor 
/display  string 
Printing  report  for  ID  :  ' , 0 

7ptr  to  string 
/number  of  by tea 
/display  20  chars 
/restore  original  color 


-Request  Printer  Port  Status 
Input  ■  Assign  port  in  [LPT]  0-2 
Output  ■  Carry  Flag  ■  port  not  ready 
OM_LIMR 
PUSH  AX 


/save  registers 


POSH 

DZ 

MOV 

AX.OIOOh 

;get  status  function  no 

MOV 

DZ,  [LPT] 

;ptr  to  port 

XMT 

17h 

j request  status 

AMD 

AH, lOh 

f Is  printer  ready  7 

JNZ 

ISR1 

>0  Naans  printer  error 

STC 

;set  carry  flag 

ISRlt 

POP 

DZ 

{restore  registers 

POP 

CZ 

POP 

BZ 

POP 

AX 

RXT 

SHOP 

ON  LINZ 

; - 

--Rjact  paper  on  HP  laser. 

t 

Input  ■ 

None 

t 

Output  ' 

*  None 

PROC 

EJECT 

POSH 

AX 

;s ave  registers 

POSH 

BX 

POSH 

CZ 

POSH 

DZ 

MOV 

AZ, Offset  Freed 

CALL 

PRINT  STRING 

POP 

AX 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP 

EJECT 

t 

; - 

--Initialise  the  HP  laser. 

i 

Input  ■ 

None 

i 

Output  < 

■  None 

PROC 

INITIALIZE  HP 

POSH 

AX 

{save  registers 

POSH 

BX 

POSH 

CZ 

POSH 

DZ 

MOV 

AZ, Offset  Init 

CALL 

PRINT  STRING 

POP 

DZ 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP 

INITIALIZEHP 

1 

; - 

-  -Restore 

default  aetting  to  the  HP  laser. 

/ 

Input  ■ 

None 

} 

Output  < 

■  None 

PROC 

RESTORE 

HP 

POSH 

AX 

{save  registers 

P08H 

BZ 

POSH 

CZ 

POSH 

DZ 

CALL 

RESTORE  MESS 

{inform  user 

MOV 

SI, Off set  Rest 

{ptr  to  ASCII  string 

- get  character  to  ba  cent  to  LPT  port 

MOV  AL, [SI] 


;  — 

RR1: 


{load  Char  to  sand 


CMP 

AL,  0 

;is  this  end  of  string? 

jk 

RR4 

; if  yes  normal  exit. 

; - 

--send  character  to  assigned 

LPT 

port 

XOR 

AH,  AH 

}0  ■  BIOS  function  Mo. 

MOV 

DX, [LPT] 

; get  LPT  port  assign. 

XMT 

17h 

/send  char  to  printer 

- 

--test  bit 

5  of  8.  If  bit  5 

-  0 

then  no  power. 

TKST 

AH, lOh 

I Is  printer  powered  up? 

JZ 

RR4 

;exit  if  NO 

; - 

--test  bit 

1  of  8.  If  bit  1 

■  1 

then  printer  time-out 

TK8T 

AH, 01 

{is  printer  time-out? 

JNZ 

RR4 

;if  YXS  then  exit 

i - 

--pause  1/3  second  or  up  to  1/6  i 

■econd 

once  each  hour. 

RR2: 

MOV 

AH,  0 

; function  number 

IHT 

lAh 

;get  DOS  clock  ticks 

MOV 

BX,DX 

;  save  ticks  in  CX 

MOV 

AX,  3 

{18.2  ticks  per  second 

ADD 

BX,  AX 

/add  15  seconds 

JC 

RR2 

{loop  if  over  flow 

RR3  s 

MOV 

AH,  0 

; function  number 

IHT 

lAh 

/get  DOS  clock  ticks 

CMP 

DX.BX 

;has  time  run  out  ? 

JC 

RR3 

jif  not  loop  until  done 

INC 

SI 

; point  to  next  char 

JMP 

SHORT  RR1 

{loop  until  finished 

RR4 1 

CLC 

POP 

DX 

i restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RMT 

1 

; 

Input  * 

none 

; 

Output  *  none 

PROC 

RKSTORK 

MKSS 

CALL 

CLKAR  MKSS ASK 

MOV 

AL, [Menu] 

/menu  color 

MOV 

CL, [Color] 

;save  original  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX, 0107h 

;row  3/Col  8 

CALL 

GOTOYX 

;set  cursor 

CALL 

CSTR  OtJT 

;display  warning 

db 

'  Please  wait  .  . 

•  . 

•  •  • 

while  resetting  the  ' 

db 

'HP  Printer. 

',0 

MOV 

[Color] ,CL 

/restore  original  color 

CALL 

HIDB  CUR 

RKT 

KNDP 

RKSTORK 

MKSS 

KNDP 

RKSTORK 

HP 

» - Place  printer  cursor  in  row/col  position 

;  Input  ■  AX  ■  row/col  in  hex 

/  Output  ■  Hone 

PROC  HPOOTOYX 


POSH 

AX 

;save  registers 

POSH 

BX 

POSH 

CX 

P08H 

DX 

MOV 

BX,  AX 

;save  row/ col 

CMP 

AL, 100 

;is  col  <  100  ? 

JC 

QOT1 

;if  yes  Ok  continue 

XOR 

AL,  AL 

/if  NO  column  -  0 
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0071  > 


0072  < 


KNDP 

» 


X0R 

AH, AH 

MOV 

CL,  10 

DIV 

CL 

OR 

AX, 3030h 

MOV 

[Col] , AX 

MOV 

AL.BH 

CMP 

AL, 100 

JC 

G0T2 

XOR 

AL,  AL 

XOR 

AH, AH 

MOV 

CL,  10 

DIV 

CL 

OR 

AX, 3030h 

MOV 

[Row] , AX 

MOV 

AX, Offset  loc 

CALL 

PRINT  STRING 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

HP  GOTO YX 

i  zero  to  high  byte 
j divisor  to  CL 
j convert  to  decimal 
» convert  to  ASCII  digit 
leave  digit 
i  move  row  to  XL 
tie  row  <  100  ? 
i if  yea  0k  continue 
; if  NO  row  -  0 
i aero  to  high  byte 
idiviaor  to  CL 
; convert  to  decimal 
i convert  to  ASCII  digit 
;aave  digit 


ireatore  regiatera 


-Show  the  contenta  of  the  AH  regiater  to  acraen. 

Used  for  showing  feedback  from  LPT  port  using  I NT  17h  calls 
Input  ■  Nona 
Output  m  None 

Called  from:  PRINT  STRING  if  [Debug]  is  ON 


PROC 


l 


ABO: 


AB1: 


SHOW  AH 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 

display  contents  of  AH  register  in  binary 


MOV 

BL,  AH 

MOV 

AX, 0734h 

CALL 

GOTOYX 

CALL 

CSTR  OUT 

db 

' low  ' , 0 

MOV 

CX,  8 

MOV 

AX.BX 

AND 

AX,  1 

CALL 

BIN  OUT 

CMP 

CL,  5 

JNZ 

AH1 

CALL 

CSTR  OUT 

db 

'  to  ',0 

SHR 

BL,  1 

LOOP 

AH0 

CALL 

C8TR_OUT 

db 

'  high' ,  i 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

SHOW 

AH 

; save  input  in  BX 
;  row/ colxn 


; loop  counter 

;zero  all  bit  but  first 


;  loop  8  times 


----Instructions  for  the  Print  coasiand. 


KNDP 

i 

;  — 
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i  Input  ■  Mon* 

i  Output  m  mom 

i 

PROC  PRIST  IN8TRU 


PUSH 

AX 

/aava  ragiatara 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

AX,  AX 

; row  0, column  0 

CALL 

MIMU  BOX 

zclaar  aanu  box 

MOV 

AX, 1500h 

/row  21,coluam  0 

CALL 

MXMUBOX 

/draw  atanu  box 

MOV 

CL, [Color] 

/gat  aaaignad  color 

MOV 

AL, [Manu] 

/gat  ainu  color 

MOV 

[Color] , AL 

zaat  manu  color 

MOV 

AX, 1609h 

/row  22,coluam  12 

CALL 

OOTOYX 

CALL 

CSTR  OUT 

db  'Proa*  tha  <Zac>  kay  to  pausa  or  cancal  tha  ' 

db  'printing  of  raporta.',0 

CALX.  HIDHCUR 

MOV  [Color], CL  ; raatora  aaaignad  color 

POP  OX  /raatora  ragiatara 

POP  CX 

POP  BX 

POP  AX 

RKT 

SHOP  PRINTINSTRU 

; 

PROC  KRRSOUND 

PUSH  AX 

MOV  AX,Of faat  Baap 

CALL  SOUND 

POP  AX 

RKT 

KNDP  KRRSOUND 

/ - Placa  tha  curaor  in  tha  diairad  poaiton  in  tha  chart. 

z  Input  m  AL  ■  Data  valua  in  hax  to  poaition  curaor. 

/  CL  ■  currant  row 

z  Output  -  Cary  flag  ■  abort  printing 

/  CX  ■>  loop  countar 


POSITION  IX 

PUSH 

AX 

/aava  ragiatara 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DX,AX 

/aava  point 

•aat  curaor 

MOV 

AL,30h 

/column  poaition 

MOV 

AH,  CL 

/row  poaition 

CALL 

HPOOTOYX 

/aat  poaiton 

JC 

PX6 

zaxit  on  pr intar  arror 

-changa 

to  linita  and  tantha 

MOV 

AX,DX 

/raatora  point  valua 

XOR 

AH, AH 

/convart  16  bit  numbar 

MOV 

CL,  10 

/ diviaor 

DIV 

CL 

zal  ■  unit  a  ah  >  tanthi 

MOV 

DX,  AX 

/aava  nuabara  in  DX 

XOR 

CX,CX 

/xaro  to  loop  countar 

ADD 

CL,DL 

/gat  unita  digit 
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PX1: 


PX2  > 


PX3 : 


PX5 : 
PX6 : 


/ 

/ 

/ 

PROC 


ENDP 

BNDP 


JZ 

PXS 

DSC 

cx 

JZ 

PX2 

CMP 

CX,  5 

JKC 

PX5 

MOV 

AX, Offset  NextUn 

CALL 

PRINT  STRING 

JC 

PX6 

LOOP 

PX1 

XOR 

cx,cx 

ADD 

CL,DH 

JZ 

PXS 

MOV 

AX, Offset  NextTn 

CALL 

PRINT  STRING 

JC 

PX6 

LOOP 

PX3 

CLC 

JMP 

SHORT  PX6 

CALL 

DATA  ERROR 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

i it  zero  out  of  bounds 
/beg.  seals  at  1  not  0 
i If  zero  skip  units 
/is  data  in  bounds? 
;sxit  if  out  of  bounds 
;ptr  to  naxt  unit  str 
; advanca  to  naxt  unit 
;axit  on  printar  arror 
;loop  until  units  ■  0 
/ zaro  loop  countar 
;gat  tanths  digit 
;if  zaro  OKI  axit 
jptr  to  naxt  tanths  str 
/advance  to  naxt  unit 
/exit  on  printar  arror 
/loop  until  units  »  0 
/normal  axit 

/mark  data  arror 
/restore  registers 


Input  ■ 

none 

Output 

«  none 

DATA  ERROR 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEARMBSSAGB 

MOV 

AL, [Warning] 

/warning  color 

MOV 

CL, [Color] 

/save  original  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX, 0207h 

/row  3/Col  8 

CALL 

GOTOYX 

/set  cursor 

CALL 

CSTR_OUT 

/display  warning 

db 

'  The  POSITION_YX  proceedure  has 

Ou to f Range  data.' 

db 

'  Press  Any  Key.  ',0 

MOV 

[Color] , CL 

/restore  original  color 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

CLC 

GETCHAR 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

RET 

AX 

DATA  ERROR 

POSITION  TX 

place  percentiles  in  the  chart. 

Input  ■  CL  ■  currant  row 

Output  *  Cary  flag  ■  abort  printing 

Hots:  do  not  distroy  the  row  counter  in  cl  because  POSITIONYX 
requires  the  information  to  set  the  correct  row  position. 


PROC  PRINT  PERCENTILES 
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/save  registers 


POSH 

AZ 

;save  registers 

P08H 

HZ 

POSH 

cz 

POSH 

DZ 

1 - 

— chart 

the  median 

MOV 

81,  Offset  OutBuf  +  2 

zptr  to  median  in  buf 

MOV 

AL, [SI] 

; get  value  from  chart 

CMP 

AL, OAh 

/is  it  less  than  1.07 

JC 

CHM1 

/if  yes  exit  no  error 

CMP 

AL,33h 

/ is  it  larger  then  5.0? 

JMC 

CHM1 

z if  yes  exit  no  error 

CALL 

POSITION  YZ 

/set  cursor  in  chart 

JC 

CHM2 

/exit  if  error 

MOV 

AZ,  Offset  Median 

;ptr  to  median  string 

CALL 

PRINT  STRING 

/print  the  median 

JC 

CHM2 

/exit  if  error 

1 - 

-chart 

the  25% 

INC 

SI 

;ptr  25  percentile 

MOV 

AL, [SI] 

/ get  value  from  chart 

CMP 

AL, OAh 

/is  it  less  than  1.0? 

JC 

CHM1 

/if  yes  exit  no  error 

CMP 

AL, 33h 

/is  it  larger  then  5.0? 

JNC 

CHM1 

/if  yes  exit  no  error 

CALL 

POSITION  YZ 

/set  cursor  in  chart 

JC 

CHM2 

/exit  if  error 

MOV 

AZ,  Offset  Left 

zptr  to  Left  string 

CALL 

PRINT  STRING 

/print  the  median 

JC 

CHM2 

/exit  if  error 

; - 

-chart 

the  75% 

INC 

SI 

MOV 

AL, [SI] 

/get  value  from  chart 

CMP 

AL, OAh 

/is  it  less  than  1.0? 

JC 

CHM1 

; if  yes  exit  no  error 

CMP 

AL, 33h 

/is  it  larger  then  5.0? 

JNC 

CHM1 

/if  yes  exit  no  error 

CALL 

POSITION  YZ 

/set  cursor  in  chart 

JC 

CHM2 

/exit  if  error 

MOV 

AZ,  Offset  Right 

zptr  to  right  string 

CALL 

PRINT  STRING 

/print  the  median 

JC 

CHM2 

/exit  if  error 

CHM1: 

CLC 

CHM2 : 

POP 

DZ 

/restore  registers 

POP 

CZ 

POP 

BZ 

POP 

AZ 

RKT 

UNDP 

PRINT 

PKRCKNTILRS 

Z 

Input 

-  (assume;!  [OutBuf]  contain.! 

the  rank  values) 

Z 

CL  ■  row  position  need  by  1 

POSITION  YZ 

/ 

Note: 

The  cusor  is  adjusted  before  printing  the  shaded  area  because 

z 

the  bar  does  not  look  smooth 

if  compressed  characters  are  used. 

1 

PROC 

PRINT 

RANGB 

POSH 

AZ 

/save  registers 

POSH 

BZ 

POSH 

CZ 

POSH 

DZ 

MOV 

AL, OPPh 

ZOR 

[Tint] ,  AL 

/toggle  tint  of  bar 

; - gat  lowest  values  from  file  PerCnt  buffer 

CPTO:  MOV  SI,  Offset  OutBuf 
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MOV 


MOV 

AL, [SI] 

{get  lowast  scora 

CMP 

AL,0Ah 

;is  it  to  small  ? 

JC 

CPT5 

jif  yas  exit  no  arror 

CMP 

AL,  51 

;is  it  to  larga  ? 

jnc 

CPT5 

tit  yas  axit  no  arror 

1 - 

-position 

tha  cursor  to  tha 

starting  position  for 

tha  bar. 

CALL 

POSITION  YX 

{set  cursor 

JC 

CPT6 

tmx it  on  printer  arror 

CMP 

AL, OAh 

;is  tha  scora  1.0  ? 

JKZ 

CPT1 

;if  NO  jump  to  CFT1 

MOV 

DL,  AL 

fsava  valua  lowast  scora 

MOV 

AX, Off sat  HalfSp 

;ptr  to  1/2  space  str 

CALL 

PRINT  STRING 

; nova  cursor  1/2  space 

JC 

CPT6 

{exit  on  printer  arror 

MOV 

AL,DL 

; restore  valua  to  AL 

» - 

-gat  high 

valuas  from  fila  OutBuf 

CPT1 : 

MOV 

SI,  Off sat  OutBuf 

♦ 

1 

;ptr  to  highest  scora 

MOV 

AH, [SI] 

;gat  high  scora 

CMP 

AH, OAh 

{is  it  to  small? 

JC 

CPT5 

;if  yas  axit  no  arror 

CMP 

AH,  51 

j is  it  to  larga  ? 

JMC 

CPT5 

{if  yas  exit  no  arror 

CMP 

AH,  50 

;is  it  a  5.0? 

JMZ 

CPT4 

{if  NO  goto  next  tost. 

1 - 

-high  valua  is  5.01  Chack 

to 

saa  if  low  valua  is 

also  0  tanths. 

MOV 

DX,  AX 

; store  high/low  valuas 

XOR 

AH, AH 

;low  number  to  16  bits 

MOV 

CL,  10 

; divisor 

DIV 

CL 

t remainder  -  tenths 

CMP 

AH,  0 

{is  remainder  ■  0  ? 

MOV 

AX, Off sat  FullBk 

;use  fullbk  if  Yas 

JZ 

CPT2 

{ if  Yas  back  2  compress 

MOV 

AX, Off sat  BackSp 

jif  NO  back  1  compress 

CPT2  s 

CALL 

PRINT  STRING 

;move  cursor 

JC 

CPT6 

; axit  on  printer  error 

MOV 

AX,  DX 

;rostora  values  to  AX 

; - 

-high  -  low  •  langth  of  shadad  bar 

CPT4: 

SOB 

AH,  AL 

;high  -  low 

JC 

CPT5 

{exit  if  out  of  bounds 

MOV 

AL,  AH 

{put  answer  in  al 

XOR 

AH,  AH 

{convert  to  16  bit  no. 

MOV 

CL,  10 

{divisor  ■  10 

DIV 

CL 

{ahaitonths  and  al«units 

CALL 

PRINT  ONITS 

{print  units  valua 

JC 

CPT6 

{exit  on  abort  rand 

CALL 

PRINT  TKNTBS 

{print  tenths  valua 

JC 

CPT6 

{exit  on  abort  cmd 

CPT5 : 

CLC 

CPT6: 

POP 

DX 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

KNDF 

PRINTRANGX 

J 

} 

Input  ■ 

AL  ■  units  and  AH 

. 

tanths 

>  Output  ■  Carry  Flag  if  Printer  arror 

I 

FROC  PRI:  f  r_TKNTHS 

PUSH  AX  ;■ ava  ragiatars 

POSH  BX 
POSH  CX 
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MOV 


PTHl: 


PTH2 : 


PTH3 : 
PTH4: 


SNDP 


PROC 


PU1 : 


PU2s 

PU3: 


ENDP 

; 

/ 

i 

i 


R  DX 

AX.,  AH 
CMP  AX.,0 

JZ  PTH3 

CMP  At,  10 

JNC  PTH3 

MOV  CL,  AL 

XOR  CH,CH 

CMP  CL, 4 

JC  PTHl 

IMC  CL 

CMP  CL, 7 

JC  PTHl 

INC  CL 

MOV  AX, Offset  TenDk 

CMP  BTTI  PTR  [Tint] , 0 

JZ  PTH2 

MOV  AX, Offset  TenLt 

CALL  PRINTSTRING 

JC  PTH4 

LOOP  PTH2 

CLC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RKC 

PRINT  TENTHS 


r  tenths  to  si  rsgistsr 
i  Is  units  »  0  7 
tif  YES  exit 
t is  it  loss  than  10  7 
;  i£  NO  exit  to  large 
;aov«  units  to  cl 
tasks  s  16  bit  nuaber 
tis  units  1,2  or  3  7 
ti£  yss  draw  units 
t  add  1  to  units 
torig  unit  4  5  or  6? 

;i£  yss  draw  units 
tadd  1  to  units 
tptr  to  next  tenths  str 
tis  it  ON  or  OFF  7 
ti£  Yss  print  dark 
tslss  print  light 
t advance  to  next  tenths 
texit  on  printer  error 
j loop  until  units  “  0 

t restore  registers 


Input  ■  AL  ■  units  and  AH  ■  tenths 
Output  -  Carry  Flag  if  Printer  error 


PRINT 

UNITS 

PUSH  “ 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CMP 

AL,  0 

JZ 

PU2 

CMP 

AL,  5 

JNC 

PU2 

MOV 

CL,  AL 

XOR 

CH.CH 

MOV 

AX, Offset  UntDk 

CMP 

BYTE  PTR  [Tint] , 0 

JZ 

PU1 

MOV 

AX, offset  untLt 

CALL 

PRINT  STRING 

JC 

PU3 

LOOP 

PU1 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

PRINT 

UNITS 

tsave  registers 


tis  units  value  ■  0 
t if  yes  than  exit 
tis  it  less  than  5  7 
i if  NO  exit  to  large 
taove  units  to  cl 
tasks  a  16  bit  nuaber 
tptr  to  next  unit  str 
tis  it  ON  or  OFF  7 
tif  Yes  print  dark 
telse  print  light 
t advance  to  next  unit 
texit  on  printer  error 
t loop  until  units  "  0 

t restore  registers 


Count  the  nuaber  o£  rows  that  will  fill  one  page.  (45  max) 
Input  ■  DX  start  ptr  in  CFGTbl 
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PROC 


t 

Output 

■  AX  ■  starting  row 

■  0, 

1,  or  2 

I 

BX  m  atop  ptr  in  CPOTbl 

1 

carry  flag  If  error  is 

found. 

1 

Note: 

oalla  its  own  subroutines 

FACTOR  ROW  COUNT 

1 

and  FASB_XMFO_BRR . 

PROC 

OR  FAOB  INFO 

PUSH 

ex 

PUSH 

DX 

MOV 

BX,  DX 

CMP 

WORD  PTR  [BX] , 7 

j is  this  a  group  title 

JNZ 

0X1 

lif  YBS  adv  ptr  to 

ADD 

DX,4 

/skip  passed  title. 

(3X1 1 

MOV 

CX,  8 

;5  title  and  3  bottom 

coat 

MOV 

BX,  DX 

/get  starting  offset 

ADD 

DX,4 

jptr  to  naxt  entry 

CMP 

WORD  PTR  [BX] , 6 

;  is  this  a  file  name? 

JC 

0X6 

jif  yas  exit  error 

CMP 

WORD  PTR  [BX] , 8 

: is  it  BndOf Table  ? 

JNZ 

0R3 

7  if  NO  continue  else 

MOV 

AL, OFFh 

; nonzero  ■  BndOf Table 

MOV 

[HOP]  ,AL 

;aark  [HOF]  True 

JMP 

SHORT  OR4 

; exit  BndOf Page 

0X3: 

CMP 

WORD  PTR [BX] ,7 

7 is  it  a  group  title? 

JZ 

6R4 

; if  TBS  exit  HndOfPage 

CMP 

WORD  PTR  [BX] , 6 

;is  it  a  factor  title? 

JMZ 

0X6 

>if  NO  exit  error 

CALL 

FACTOR  ROW  COUNT 

;add  next  factor  to 

/ - 

■  -taat  for  papa  langth  hara 

; tha  row  count 

CMP 

AX, 46 

; is  row  ct  >  45  ? 

JMC 

OR4 

; if  TBS  exit  overflow 

MOV 

CX,  AX 

/else  save  new  total 

MOV 

DX.BX 

/and  now  stop  pointer 

JMP 

OR2 

; jmp  forever 

; - 

•  -compute 

start  row  value:  45 

lines 

-  row  0,  44-43  -  1,  42-41  -  2,  else  3 

0X4: 

MOV 

AX,  3 

/default  setting 

CMP 

CX, 41 

/is  it  40  or  less  ? 

JC 

OR5 

/if  Tes  row  3  is  good. 

DRC 

AX 

/row  -  2 

CMP 

CX, 43 

/is  it  42  or  41  ? 

JC 

OR5 

/if  Tes  row  2  is  good. 

DBC 

AX 

/row  ■  1 

CMP 

CX, 45 

/is  it  43  or  44 

JC 

OR5 

/if  Tes  row  1  is  good. 

DBC 

AX 

/row  m  0 

0X5: 

MOV 

BX,DX 

/return  new  stop  ptr 

CLC 

/no  error 

JMP 

SHORT  0R7 

/normal  exit  point 

0X6: 

CALL 

PAOH  INFO  KRR 

/tell  user  of  error 

STC 

/mark  error 

0X7: 

POP 

DX 

POP 

CX 

KXT 

Adda  the  number  of  rowi  naad  for  ona  factor. 

Input  ■  BX  ptr  to  factor  naaa 

DX  ptr  to  start  of  factor 
Output  ■  AX  ■  now  total  of  linaa. 

BX  ■  ptr  to  naxt  antxy  aftar  factor 
Note:  tha  factor  box  takes  4  rows 
aach  bar  takaa  ona  row 

tha  number  of  bar  ■  tha  number  of  aalf  filaa 
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'.<*  *»§* 


■■A  , 


w*  ^M^jCWSip1'.-^  ,v- 


1 

SF1  is  type  S  and  8F2  is 

type  4 

PROC 

FACTOR 

RON  COUNT 

PUSH 

■  cx~ 

PUSH 

DX 

MOV 

BX/DX 

;ptr  to  first  file 

MOV 

AX,  4 

; factor  box  ■  4  rows 

ADD 

CX,  AX 

; add  box  to  total 

PRClt 

CMP 

WORD  PTR  [BX] ,4 

{is  it  a  self  file? 

JC 

FRC2 

{if  NO  don'  count  it 

INC 

CX 

{else  count  -  count  +  1 

FRC2 1 

ADD 

BX,  AX 

;ptr  to  next  type 

CMP 

WORD  PTR  [BX] , 6 

;is  it  a  file  name  ? 

JC 

FRC1 

;if  Yes  loop  again 

MOV 

AX,  CX 

t place  new  total  in  ax 

CLC 

POP 

DX 

POP 

CX 

RXT 

XHDP 

FACTOR 

ROWCOUNT 

{ 

t  The 

error  message  should  never  be  cal led It 

i 

Input  • 

i  none 

{ 

Output 

■  none 

PROC 

PACT  INFO  XRR 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLXAR_MBSSAOX 

MOV 

CL,  [Color] 

tstore  original  Color 

MOV 

AL, [Warning] 

{warning  color 

MOV 

[Color] , AL 

{set  color 

MOV 

AX, 0207h 

{row  3/Col  12 

CALL 

OOTOYX 

{set  cursor 

CALL 

CSTR  OUT 

{display  warning 

db 

”  XRROR:  <3BT_PAOX_INFO 

found  a  mistake  when  reading  the  ■ 

db 

"config  table.  ",0 

MOV 

[Color] ,CL 

{restore  original  coloi 

CALL 

HIDX  CUR 

CALL 

XRR  SOUND 

CALL 

OKT  CHAR 

CALL 

CLXARMHSSAQX 

{empty  message  line 

CLC 

{clear  cf  *  continue 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

XMDP 

PAQX  INFO  XRR 

KNDP 

GXT_PAiQX_INFO 

{ 

t 

Set  [Time]  with  DOS  timer  ticks. 

There  are  18.2  ticks  per  second. 

t 

Input  ■ 

none 

1 

Output 

■ 

l 

e 

PROC  8XT_TIMB 

PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 

t - gat  DOS  timer  ticks 

STlt  NOV  AH, 0 
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; function  number 


XMT 

lAh 

/get  DOS  clock  ticks 

MOV 

AX, 455 

>18.2  ticks  par  second 

ADD 

DX,AX 

; add  25  seconds 

<JC 

ST1 

j loop  if  ovar  flow 

MOV 

CLC 

POP 

[Tima] ,DK 

; save  stop  time  count 

DK 

POP 

CZ 

POP 

BZ 

POP 

AZ 

jurr 

KMDP 

8RJTXMI 

# 

;  Has 

tha  DOS 

timer  ticks  in  [Tima]  runout  yet? 

Xf  NO  wait  until  they  do. 

; 

Input 

m  none 

/ 

Output 

■  none 

PROC 

CHICK 

Tin 

PUSH 

AZ 

POSH 

BZ 

POSH 

CZ 

POSH 

DZ 

; - 

-is  time 

up  yat? 

CKTIj 

MOV 

BZ, [Tima] 

;gat  stop  time  count 

MOV 

AH,  0 

; function  number 

XHT 

lAh 

;get  DOS  clock  ticks 

CMP 

DX,BX 

;has  time  run  out  ? 

JC 

CKT1 

;if  not  loop  until  dona 

CLC 

POP 

DZ 

POP 

CZ 

POP 

BZ 

POP 

AZ 

RIT 

KMDP 

CHICK 

TXMI 

9 

;Data  ussd  by 

the  Manu  System 

.DATA 


;MenuOdata 

structure 

menuO  dw 

Offset  man' 

db 

'  File 

db 

'  ( 

db 

05,6 

dw 

Offset  mOl 

db 

18,6 

dw 

Offset  m02 

db 

30,7 

dw 

Offset  m03 

db 

44,5 

dw 

Offset  m04 

db 

56,6 

dw 

Offset  m05 

Quit 


;ptr  to  manu  HotKeys 
Rank  Print  LPT' 

',0 

;lightbar:poaition  in  string  and  number  of  bytas 
/pointer  to  lightbar  message 


> 

; tha  manu  manuOHK  string  contains  tha  hot  keys  that  will  activata  tha  Choica. 

; tha  lattars  in  tha  string  should  induda  tha  first  lattars  of  aach  manu  itam. 
/these  lattars  mu  at  ba  in  tha  saaa  ordar  as  tha  manu  itams.  Additional 
; hot  kays  mayba  addad  to  tha  string  if  naadad.  Tha  calling  program  must 
;ba  abla  to  filtar  thasa  additional  HotKays.  Tha  hot  kay  string  must 
>and  with  a  saro. 

manuOHK  db  'PRPLQ',0  /Hotkey  ASCZXZ  string. 

/ 

imassagas  can  ba  up  to  72  character  in  length.  Tha  length  does  not  have  to 
;be  the  same.  Tha  previous  massage  is  cleared  before  tha  new  massage  is 
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'  ,  ■  1 ''-  'fe''*  •  ’  ■  ' 


nnrittu.  A*  Maitgti  a  an  be  anywhere  in  the  data  aaction.  Tba  numbering 
>  system  for  aasaagast  •■01"  at and*  for  aenuO  aessagaO 


■01  db 

db 

■02  db 

db 

■03  db 

Printer . * , 0 

■04  db 

db 

■05  db 


land  of  nanuO  structura 


Select  a  configuration  fila  daacribing  tba  SLDX  faadback 
raports . ’ , 0 

Compute  tba  25th  and  75th  parcantilas  for  tba  data' 
fila. ' , 0 

Sand  tba  SLOT  FaedBack  raports  to  tba  HP  Laaar Jat 

Salact  tba  parallal  port  asaignad  to  tba  HP  LaserJet  ' 
Printar . ' , 0 

Exit  tba  prograa  and  raturn  to  DOS . ' ,  0 


iManuldata 

structura 

annul  dw 

Offset 

aanulHK 

iptr  to 

menu  HotKeys 

db 

0 

First 

LPT 

Second  LPT 

Aird  ' 

db 

'LPT 

',0 

db 

9,11 

i  lighAar  (position  in  string  and 

number  of  bytes 

dw 

Offset 

all 

i pointer 

to  lighAar  aassaga 

db 

28,12 

dw 

Offset 

ml  2 

db 

48,11 

dw 

Offset 

ml  3 

;  tba  aanu  aanulHK  atring  containa  tha  hot  kaya  that  will  activata  tha  Choica. 

; tha  lattara  in  tha  atring  abould  includa  tba  first  lattara  of  aach  manu  it am. 
; tba a a  lattara  must  ba  in  tha  samo  ordar  aa  tba  aanu  itaas.  Additional 
; hot  kaya  Bayba  addad  to  tha  string  if  naadad.  Aa  calling  prograa  must 
iba  abla  to  filtar  thaaa  additional  HotXaya.  Aa  hot  kay  string  must 
land  with  a  saro. 

aanulHK  db  'FST',0  ; Hotkey  ASCXXZ  string, 

i 

massages  can  ba  up  to  72  cbaractar  in  length.  Aa  langth  does  not  hava  to 
i bo  tha  aaaa.  Aa  previous  aaaaaga  is  cleared  before  the  now  aoasaga  ia 
i written.  Aa  aessages  can  ba  anywhere  in  tha  data  aaction.  Aa  nuaboring 
i aystaa  for  aasaagasi  "all"  stands  for  annul  mesaagol 


all 


al2 


ml  3 


db 

db 

db 

db 

db 

db 


land  of  annul  structure 
i 
i 


Sand  tba  SLDX  data  to  tba  computer's  LPT  1 
output  port . ■ , 0 

Sand  tha  SLDX  data  to  the  computer's  LPT  2 
output  port . ■ , 0 

Sand  Aa  SLDX  data  to  Aa  computer's  LPT  3 
output  port.",0 


}Nenu3data 

structura 

menu 3  dw 

Offset 

menu 

db 

0 

Tag 

db 

'Menu 

',0 

db 

07,5 

dw 

O 

Ml 

re 

a 

a 

IT 

m31 

db 

21,7 

dw 

Offset 

m3  2 

db 

37,7 

dw 

Offset 

a33 

db 

53,11 

dw 

Offset 

m3  4 

UnTag 


iptr  to  aanu  HotKeys 
Print  Main  ' 


i lighAar (position  in  string  and  number  of  bytes 
l pointer  to  lighAar  message 


i tha  aanu  menu3HK  string  contains  Aa  hot  keys  that  will  activata  tha  Choica. 
i tha  letters  in  tha  string  should  includa  tha  first  letters  of  each  aanu  itaa. 
i those  letters  must  bo  in  tha  sano  ordar  as  tha  aanu  itaas.  Additional 
l hot  keys  maybe  addad  to  tha  string  if  naadad.  Aa  calling  program  must 


A-55 


I 


/be  able  to  filter  those  additional  HotKeya.  The  hot  key  atring  must 
tend  with  a  aero. 

menu3HX  db  'TUPM',0  / Hotkey  ASCXIZ  string. 


I 

; messages  can  ha  up  to  72  character  in  length.  The  length  does  not  have  to 
;be  the  same.  The  previous  message  is  cleared  before  the  new  masaaga  is 
/ written.  The  messages  can  be  anywhere  in  the  data  section.  The  numbering 
/ system  for  messages:  ■sal"  stands  for  menul  messagel 


m31 

db 

”  Tag  highlighted  ID.  Press  Ctrl  and  <Enter>  to  ■ 

db 

■tag  all  IDs.*,0 

m3  2 

db 

■  Untag  highlighted  ZD.  Press  Ctrl  and  <Bnter>  to  ■ 

db 

"untag  all  IDs.",0 

m3  3 

db 

■  Print  reports  for  all  the  tagged  ZDs . " , 0 

m3  4 

db 

■  untag  IDs  and  return  to  the  FeedBack  programs  ■ 

db 

■opening  menu . " , 0 

end  of  menu 3  structure 
.CODS 

Present  the  Main  Menu  and  Title  screen 
Input  m  None 

Output  m  if  critical  DOS  error.  Brror  number  is  in  AL 
CH  m  last  choice  CL  ■  max  number  of  choices 


PROC 

MAIN 

MENU 

PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

; - 

--draw 

playing  screen 

XOR 

AX,  AX 

/row  0  and  column  0 

CALL 

MENU  BOX 

/draw  top  menu  box 

CALL 

DRAM  TITLB 

CALL 

DISPLAY  STATUS 

/display  name  6  LPT  port 

CALL 

MENU  INSTRU 

/draw  bottom  box 

MOV 

CH,  01 

/starting  menu  selection 

MAI: 

MOV 

AX,  Offset  MenuO 

MOV 

CL, 5 

/max  choice  for  menul 

CALL 

GET  CHOICE 

/ get  a  menu  aelections 

; - 

-is  it 

Esc  key  ? 

CMP 

AH,  Oh 

/ was  <ESC>  key  pressed? 

JNZ 

MA2 

/if  not  goto  next  test 

CALL 

EXIT  YN 

/exit  to  Dos  Y/N  ? 

JNC 

MAI 

/if  no  get  next  choice 

JMP 

MA8 

/Exit  on  <Bsc>  key 

MA2  : 

MOV 

CH,  AH 

/save  current  choice 

J - 

-is  it 

Select  a  iata  file  ? 

DHC 

AH 

/is  this  the  choice? 

JNZ 

MA3 

/if  not  goto  next  test 

CALL 

GET  PATH 

/ get  file  path 

JC 

MA2B 

/main  menu  if  Bsc  key 

CALL 

SELECT  FILE 

/pick  config  file 

CALL 

MENU  INSTRU 

CALL 

DRAM  TITLB 

/redraw  title  screen 

CALL 

DISPLAY  STATUS 

/display  name  &  LPT  port 

MA2B: 

XOR 

AX, AX 

/row/ column 

CALL 

MENU  BOX 

/clear  menu  box 

JMP 

SHORT  MAI 

/get  another  choice 

, - 

-is  it 

Rank  the  variables? 

MA3 : 

D8C 

AH 

/is  this  the  choice? 

JNZ 

MA4 

/if  not  goto  next  test 
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;is  this  the  choice? 
;if  not  goto  next  test 


W.T. 

•AM* 

/compute  proaontilea 

JC 

MAI 

nr.^. 

MIMU  XMSTRU 

froatoro  bottom  box 

CALL 

DISPLAY  STATUS 

J» 

SHORT  MAI 

; get  another  choice 

1  ---- 

--i»  it 

Print  the  data  file? 

MA4t 

DIC 

AH 

;ia  this  the  choice? 

jmz 

MA5 

/if  not  goto  next  teat 

CALL 

PRINT  MIMU 

/ 

JC 

MAI 

;loop  if  not  ready 

MOV 

CH,  5 

;aet  main  menu  to  Quit 

CALL 

MIMU  XMSTRU 

CALL 

DRAM  TITLE 

: redraw  title  acreen 

CALL 

DISPLAY  STATUS 

;diaplay  name  &  LPT  port 

JKP 

SHORT  MAI 

/get  another  choice 

»*•*• 

- -!■  it 

chooae  a  Laser  port? 

MA5  t 

DIC 

AH 

JMZ 

MAS 

CALL 

PORT  MENU 

/Select  LPT  port 

JMP 

SHORT  MA7 

/return  to  main  menu 

/ - 

--is  it 

the  Exit  command  ? 

MAS: 

DIC 

AH 

JMZ 

MA7 

/go  get  another  choice 

CALL 

HIT  YM 

/exit  to  Doa  Y/M  ? 

JC 

MA8 

/if  yea  exit,  elae 

MA7  t 

CALL 

DISPLAY  STATUS 

/display  status  report 

JMP 

SHORT  MAI 

/get  next  choice. 

MA8 : 

CLC 

/clear  cf  a  normal  exit 

MMt 

POP 

DX 

POP 

ex 

POP 

BX 

POP 

AX 

RIT 

KMDP 

MAIM 

MIMU 

1 

Print  Menu  for  ■•looting  a  single 

or  all 

reports . 

/ 

Input 

■  None 

/ 

Output  a  If  critical  DOS  error  Error  number  ia  in  AL 

1 

CH  >  last  choice  CL  a  max 

number 

of  choices 

PROC 

PRINT  MENU 

PUSH 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

CALL 

IS  PRIMT 

/is  data  ready  to  print? 

JC 

PI8 

/exit  if  not  ready. 

MOV 

WORD  PTR  [TopBar] , 1 

/default  (1  to  MaxXd) 

MOV 

BYTE  PTR  [HiBar] , 15 

/default  (15  to  1) 

CALL 

PRINT  MIMU  XMSTRU 

/display  print  instru 

CALL 

DISPLAY  IDS 

MOV 

CH,  1 

/starting  menu  selection 

PXlt 

MOV 

AX,  Offaet  Monu3 

MOV 

CL, 4 

/max  choice  for  sienul 

CALL 

QIT  PRINT  CHOICE 

/get  a  menu  selections 

--ia  it 

lac  key  ? 

CMP 

AH,  Oh 

JZ 

PI7 

/if  yea  exit  menu 

MOV 

CH,  AH 

/save  current  choice 

; - 

--ia  it 

Tag  ID  ? 

DIC 

AH 

;ia  this  the  choice? 

JMZ 

PI2 

/if  not  goto  next  teat 

CALL 

TAG 

JMP 

SHORT  PI1 

/get  next  choice 
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I  — 

912  : 


/is  this  ths  choics? 
i if  not  goto  next  tsst 

/get  next  choics 


1 - 

-is  it 

Untag  ID  7 

912 : 

DSC 

AH 

/is  this  the  choice? 

jnz 

913 

I if  not  goto  next  test 

CALL 

UMTAO 

JM9 

SHORT  911 

/get  next  choice 

/ - 

-is  it 

Print  7 

913 1 

DSC 

AH 

/is  this  the  choice? 

JNZ 

914 

/if  not  goto  next  test 

CALL 

IS  TAO 

: are  any  ID  tagged  7 

JC 

PlI 

; if  NO  abort  rnenrnl 

CALL 

PRINT  RSPORTS 

jfor  ell  tagged  IDs 

CALL 

MKNU  INSTRU 

/ restore  bottom  box 

JMP 

SHORT  911 

/get  next  choice 

; - 

-is  it 

return  to  Mein  Menu  7 

914 1 

DSC 

AH 

/is  this  the  choice? 

am 

911 

jNO  go  get  next  char 

917 1 

CALL 

MSMU  INSTRU 

1  draw  bottom  box 

CALL 

RSLHASB  VAR  BLK 

/  release  mem  var  block 

CLC 

> clear  cf  *  normal  exit 

918: 

909 

DX 

909 

ex 

909 

BX 

909 

AX 

RKT 

SMDP 

PRINTMXNU 

t 

1 

Menu  for  selecting  the  LPT  output  port. 

l 

Input 

•  None 

t 

Output  ■  If  criticsl  DOS  error 

Srror  number 

is  in  AL 

t 

CH  ■  lest  choice  CL  a  a 

ax  number  of 

choices 

PROC 

PORT 

MKNU 

PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

CX, [LPT] 

; current  port  assignment 

MOV 

CH,  CL 

/place  in  CH  register 

INC 

CH 

/starting  menu  selection 

Mil: 

MOV 

AX,  Offset  Menul 

MOV 

CL,  3 

/max  choice  for  menul 

CALL 

OST  CHOICS 

/ get  a  menu  selections 

1 - 

-is  it 

Ssc  key  7 

CMP 

AH,  Oh 

JZ 

MI4 

/if  yes  exit  menu 

XOR 

AL,AL 

/ zero  LPT  choice 

MOV 

CH,  AH 

/save  current  choice 

1 - 

-is  it 

Select  LPT  1  7 

DSC 

AH 

/is  this  the  choice? 

JNZ 

MX2 

/if  not  goto  next  test 

XOR 

AH,  AH 

/ zero  AH  register 

MOV 

[LPT] , AX 

/assign  0  to  [LPT] 

JMP 

SHORT  MI 4 

/exit  proceture 

1 - 

-is  it 

Select  LPT  2  7 

MI  2 : 

INC 

AL 

/assign  1  to  AL 

DSC 

AH 

/is  this  the  choice? 

JNZ 

MI3 

/if  not  goto  next  test 

XOR 

AH,  AH 

; zero  AH  register 

MOV 

[LPT] , AX 

/assign  1  to  [LPT] 

JMP 

SHORT  MI 4 

/exit  procedure 

> - 

-is  it 

Select  LPT  3  7 

MI  3 : 

INC 

AL 

/assign  2  to  AL 

DSC 

AH 

/is  this  the  choice? 
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MX4> 


PROC 


OKO: 

Oil: 

QB4: 

0*5: 

0*6: 

0*7: 

0*8: 

0*9: 

0*10: 


JOT  Mil 

m  u,u 

mov  (mi  ,u 

rtf* 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

HIT 

POST  MXMU 


» MO  ■  get  next  choice 
fioro  A*  register 
)  assign  2  to  [LPT] 
i clear  cf  ■  normal  exit 


Oat  a  Choice  from  the  Xeyboard  from  the  menu  system  pointed  to  by  AX. 
Input  ■  AX  points  the  desired  Menu  data  structure 

CH  ■  Starting  Choice  (menu  item  to  highlight) 

CL  ■  max  number  of  choices  in  this  menu. 

Output  ■  AH  ■  Choice  is  returned  to  the  calling  program 

AL  ■  Char  from  the  keyboard.  (Return  key  or  Xsc  key) 

Calls  'DisplayJKenu'  to  display  the  menu  on  the  screen. 

*Hot_keys*  to  see  is  Char  is  a  HotKey  for  this  menu 


OKT  CHOICK 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DX,  AX 

CALL 

DISPLAY  MXMU 

MOV 

BL,CH 

CALL 

OKT  CHAR 

CMP 

AL, ' 1' 

JC 

0*4 

CMP 

AL,*;' 

JNC 

0*4 

CALL 

HUM  LOCK 

CMP 

AL,  4 

JOT 

0X5 

INC 

CH 

CMP 

AL,13h 

JOT 

0X6 

DIC 

CH 

JOT 

0*6 

MOV 

CH,  CL 

CMP 

CL ,  CH 

JNC 

0X7 

MOV 

CH,  1 

CMP 

AL,ODh 

JZ 

0X10 

CMP 

AL,lBh 

JOT 

0X8 

SUB 

CH,  CH 

JMP 

SHORT  0X10 

CALL 

HOT  KXYS 

JC 

0X9 

CMP 

AH,  CH 

JZ 

0X11 

MOV 

CH,  AH 

CALL 

DISPLAY  KXNU 

JMP 

SHORT  0X11 

CMP 

CH,BL 

JZ 

0X1 

JMP 

SHORT  0X0 

MOV 

AH,  CH 

menu  to  the  screen 
save  old  Choice  in  BL 
get  keyboard  input, 
is  Char  <  '1' 
if  yes  goto  next  test 
is  Char  a  digit  ? 
if  not  goto  next  test 
covert  NumLock  pad 
Is  it  a  right  arrow? 
jump  if  not 
Choice  ■  Choice  4-  1 
Is  it  a  left  arrow? 
jump  if  not 
Choice  ■  Choice  -1 
if  CH  ■  0  then 
set  CH  ■  maxmenu. 

Is  CH  >  maxmenu? 

If  yes  then 
set  CH  -  1 
is  it  a  return  key? 
if  yes  return 
is  it  an  escape  key? 
if  no  goto  next  test 
if  yes,  choice  ■  0 
exit;  save  new  Choice 
is  Char  a  hot  key? 
carry  -  No;  next  char 
has  Choice  changed? 
if  not  then  exit 
save  new  Choice 
display  menu  on  Xxit 
exit;  save  new  choice 
new  Choicesold  Choice? 
yes  ■  no  menu  display 
no  «  call  display  menu 
save  choice  on  Kxit 
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DZ 

CZ 

BX 


call i  BOB 
BOB 
BOB 
RXT 

I 

PROC  MUM  LOCK 


AMD 

AL, OBh 

/convert  to 

hex 

DMC 

AL 

JMZ 

MMLO 

/if  not  a  1 

continue 

MOV 

AL,  6 

/convert  to 

Knd 

JMR 

SHORT  MML7 

/exit 

MMLOi 

DMC 

AL 

JMZ 

MML1 

/if  not  a  2 

continue 

MOV 

AL,  24 

/convert  to 

DnArrow 

JMB 

SHORT  MML7 

/exit 

MML1: 

DMC 

AL 

JMZ 

MML2 

/if  not  a  3 

continue 

MOV 

AL,  3 

/convert  to 

BageDn 

JMB 

SHORT  MML7 

/exit 

MML2  > 

DMC 

AL 

JMZ 

MML3 

/if  not  a  4 

continue 

MOV 

AL,  19 

/convert  to 

LeftArrow 

JMB 

SHORT  NML7 

/exit 

NML3  s 

DMC 

AL 

DMC 

AL 

JMZ 

MML4 

/if  not  a  6 

continue 

MOV 

AL,  4 

/convert  to 

RtArrow 

JMB 

SHORT  MML7 

/exit 

MML4: 

DMC 

AL 

JMZ 

NML5 

/if  not  a  7 

continue 

MOV 

AL,  1 

/convert  to 

Home  Key 

JMB 

SHORT  NML7 

/exit 

NKL5: 

DMC 

AL 

JMZ 

NML6 

/if  not  a  8 

continue 

MOV 

AL,  5 

/convert  to 

UpArrow 

JMB 

SHORT  NML7 

/exit 

MML6 : 

DMC 

AL 

JMZ 

MML7 

/if  not  a  9 

continue 

MOV 

AL,  18 

/convert  to 

PageUp 

NHL  7 : 

RMT 

KNDB 

NUMLOCK 

/ 

t 

Examine 

the  Hot  Key  ASCXIZ  string 

to 

find  out 

if  Char  is  a  Hot  Key. 

; 

Input  ■ 

AL  m  Char 

t 

CH  ■  Choice 

/ 

CL  >  MaxCholce 

t 

DZ  a  pointer 

to 

the 

menu  structure  in 

data  segment. 

; 

the  first  word 

in  the 

data  structure  is  a  pointer  to 

» 

the  Hot 

Key  ASCXIZ  string. 

i 

Output 

a  Carry  Flag 

if 

Char  in  AL 

is 

not  a  HotKey 

t 

AH  a  Choice 

f 

AL  a  menu  match 

AL 

a  ODh 

; 

nonmenu 

aat 

bch  AL  a  Char 

t 

Notes : 

Called  by  9MT_ 

CHOICE 

Menu 

data  must  be  in  an  exact  format. 

i 

See  Menuldata' 

structure  for 

an 

example 

of  the  corrcet  format. 

PROC 

HOT  KMYS 

BUSH 

BX 

jaave 

registers 

BUSH 

CZ 

BUSH 

DZ 

MOV 

81,  DX 

;ptr 

bo  HotKey  string  pointer 

MOV 

BX, [81] 

/load  ptr  to  ASCXIZ  HotKey  str 

AMD 

AL, 7Fh 

/make 

0  -  127  ASCII 

char. 
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AL,'a' 

;  is  char  a  oxtail  letter? 

JC 

HOT1 

; if  not.  Ok  continua . 

AMD 

AL.ODPh 

; changa  to  capital  char 

HOTls 

MOV 

DX,AX 

isava  Char  in  DX 

XOR 

AX, AX 

/zero  to  AX 

MOV 

SI, AX 

; now  Choica  countar 

MOV 

AL,DL 

l Char  r a turns  to  AL 

HOT2 : 

CMP 

[BX+SI]  ,  AH 

;is  this  tha  Knd  of  String? 

JZ 

HOT  5 

/exit;  no  match  found 

CMP 

[BX+SI]  ,  AL 

; is  Char  a  Hot  Kay? 

JZ 

HOT  3 

; 0  -  found  a  Hot  Kay 

INC 

SI 

j choica  ■  choica  +  1 

JMP 

SHORT  HOT 2 

? chock  tha  naxt  Char  in  string. 

JXP 

HOT4 

HOT  3  t 

INC 

SI 

; choica  ■  choica  +  1 

MOV 

BX,  SI 

/ choica  countar  to  BL 

MOV 

AH,  CH 

/original  Choica  to  AH 

CMP 

C1j  f  BL 

;ia  choica  a  manu  itam? 

JC 

HOT  4 

; carry  »  not  a  manu  itam 

MOV 

AH,BL 

;set  now  Choica 

HOT4 : 

CLC 

;claar  carry  *  Hot Kay  found 

JMP 

SHORT  HOT 6 

;Sxit  (found) 

HOT5  : 

MOV 

AH,  CH 

/rastora  original  Choica 

STC 

;sat  carry  flag  ■  not  HotKay 

HOT  6 : 

POP 

DX 

/rastora  ragistars 

POP 

CX 

POP 

BX 

RKT 

HNDP 

HOTKEYS 

t 

} 

Display  msnu  string; 

highlight  ona  manu  itam;  and  writs  massaga  string.  1 

/ 

Input 

■  DX  pointar  to  ths  msnu  structura  in  data  segment.  1 

1 

CH  ■  Choica 

1 

/ 

Ouput 

■  Nona 

1 

l 

Notss : 

Cal lad  by  GHT 

CHOICE.  Manu  data  must  ba  in  an  axact  format.  1 

/ 

Saa  Manldata 

structura  for  an 

axampla  of  tha  corrcot  format. 

PROC 

DISPLAY  MSNU 

PUSH 

AX 

;sava  ragistars 

POSH 

BX 

POSH 

CX 

POSH 

DX 

INC 

DX 

/skip  HotKay  string  off sat 

INC 

DX 

;ptr  to  baginning  manu  string 

MOV 

AL,  [Manu] 

/manu  color  attributa 

MOV 

[Color] , AL 

; changa  color  attributa 

MOV 

AX, 0107h 

/starting  position  for  cursor 

CALL 

OOTOYX 

/place  cursor 

MOV 

AX,DX 

/Off sat  msnu  to  AX 

CALL 

DSTR  OUT 

/Display  manu 

MOV 

AL, [Warning] 

/color  for  lightbar 

MOV 

[Color] , AL 

/ changa  color  attributa 

SUB 

AX, AX 

zzaro  AX  ragistar 

ADD 

AL,  CH 

/Choica  to  AL 

JZ 

DIP1 

/abort  if  Choica  ■  0 

DBC 

AL 

/ (Choica-1)  *  4  ■  offsat 

MOV 

CL,  2 

/number  of  shifts  to  CL 

SHL 

AX, CL 

/shift  twice  -  ax *4 

INC 

SI 

/SI  points  to  basa  of  table 

ADD 

SI, AX 

/add  offsat 

MOV 

BX, [SI] 

/get  2  bytes  from  tablet 

MOV 

CL,BH 

/number  of  char  to  copy 

SUB 

BH,BH 

A-61 

/zero  BH 

DIPls 


BNDP 

ENDP 

; 


DKC 

BL 

; BX  -  position  in  manu  string 

MOV 

AX,0107h 

/ starting  cursor  postion 

ADD 

AX,  BX 

/add  off sat  to  choica 

PUSH 

SI 

isava  SI  ragistar 

CALL 

OOTOYX 

/ position  cursor 

POP 

SI 

/restore  SI  ragistar 

MOV 

AX,DX 

; start  of  manu  string  to  AX 

ADD 

AX,  BX 

/add  off sat  to  choica 

MOV 

DX, [SI  +  2] 

/ptr  to  massaga  from  tabla. 

CALL 

SOB  DSTR  OUT 

; highlight  choica 

MOV 

AL, TMsnu] 

;sat  manu  color 

MOV 

[Color] , AL 

;changa  color  attributa 

MOV 

AX, 0207h 

;position  cursor  in  2rd  row 

CALL 

OOTOYX 

/ column  7  for  massage  string. 

MOV 

BX, 024Xh 

; row  2  and  column  78 

CALL 

CLXAR  WINDOW 

;cl*ar  out  old  massaga. 

MOV 

AL, [MsnuMss] 

;*et  massaga  color 

MOV 

[Color] , AL 

/ change  color  attributa 

MOV 

AX,DX 

/pointer  to  massaga  string 

CALL 

DSTR  OUT 

/display  massage  string 

MOV 

AL, [Normal] 

/sat  normal  color 

MOV 

[Color] ,AL 

/change  color  attributa 

CALL 

HIDE  CUR 

/hide  the  cursor. 

POP 

DX 

/restore  registers 

POP 

ex 

POP 

BX 

POP 

AX 

RBT 

DISPLAY 

MENU 

orr  choicr 

/ - Instruction*  for  uss  of  ths  menu  systsm  highlight  bar. 

/  Input  ■  Non* 

;  Output  ■  Nona 

/ 

PROC  MENU  INSTRU 


PUSH 

AX 

/save  registers 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

AX, 1500h 

/row  21, column  0 

CALL 

MENU  BOX 

/draw  manu  box 

MOV 

AL, [Manu] 

MOV 

[Color] , AL 

MOV 

AX, 160Ch 

/ row  22, column  12 

CALL 

OOTOYX 

CALL 

CSTR  OUT 

db 

'Use  the  ',17,20s,'  or 

',205,16,'  arrow  keys  to  ' 

db 

'position  the  Highlight 

Bar . ' , 0 

MOV 

AX, 1709h 

/row  23, column  12 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

'Press  the  <Bnter>  key 

to  begin  the  highlighted  Manu  Bar  ' 

db 

' command . ' , 0 

MOV 

AL, [Normal] 

MOV 

[Color] ,AL 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 
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PROC 


mi  t 
FLB2 : 


rU3: 

FLK7 : 


BBT 

mbnu_instru 

Display  tbs  users  aalactiona. 
Input  ■  AX  ■  nona 
Output  a  nona 
AX-DX  register  aavad. 


DISPLAY 

STATUS 

PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

CL, [Color] 

MOV 

AL, [Normal] 

MOV 

[Color] ,  AL 

MOV 

AX, 0506h 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

'Data  Fila  «  ',0 

XOR 

AX,  AX 

MOV 

BX, [DATHd] 

CMP 

BX,  AX 

JZ 

FLB1 

MOV 

AX,DS 

MOV 

BS,  AX 

MOV 

AX, Off sat  Saarch 

MOV 

CX,  AX 

CALL 

STR  LENGTH 

SUB 

AX,  4 

ADD 

AX,  CX 

MOV 

DI.AX 

MOV 

SI, Off sat  DATTyp 

CLD 

MOV 

CX,  5 

REP 

MOVSB 

MOV 

AX,  Offsat  Saarch 

CALL 

DSTR  OUT 

JKP 

SHORT  FLB2 

CALL 

CSTR  OUT 

db 

'MOT  Salactad',0 

MOV 

AX, 0534h 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

■Number  of  IDs  ■> 

MOV 

AX, [MaxID] 

CALL 

BIN  OUT 

MOV 

AX, 0S06h 

CALL 

OOTOYX 

CALL 

CSTR  OUT 

db 

'Parcantilas  ara 

XOR 

AX,  AX 

CMP 

WORD  PTR  [RMKHd] , 

JZ 

FLX3 

CALL 

CSTR_OUT 

db 

'computed.  ',0 

JMP 

SHORT  FLB7 

CALL 

CSTR_0UT 

db 

'MOT  computed 0 

CALL 

OM  LIMB 

JMC 

FLS8 

MOV 

AX, 0S34h 

;aava  ragiatara 


; aava  original  color 


; row/ col 


;zaro  to  AX 
; fila  handla 
i Is  tha  fila  opan? 
i if  no  claar  lina 
; assign  KS  to  tha 
jdata  section 
;ptr  to  path  +  fila  name 
j aava  atr  baginning  ptr 
jgat  length  of  string 
;langth  -  4  » 
i ptr  to  tha  pariod 
; destination  ptr 
;ptr  to  fila  type  name 
i  auto  inc  SI  &  DI 
;numbar  byte  to  move 
; move  type  to  Saarch 
;ptr  to  name  of  fila 
;sand  to  tha  acraan 


;  report  type 
; row/ col 


;zero  to  AX 

;is  tha  rank  fila  opan? 
i if  not  goto  naxt  taxt 
; sand  string  to  acraan 

;axit  routina 

jaend  string  to  acraan 

; is  printar  on_lina? 
i carry  flag  naans  MO 
» row/col 
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}■• t  cursor 


nisi 


rU9: 


CALX. 

CALL 

db 

XOR 

MOV 

XMC 

CALL 

CALL 

db 

tJMP 

MOV 

CALL 

CALL 

db 

XOR 

MOV 

XMC 

CALL 

CALL 

db 

MOV 

POP 

POP 

POP 

POP 


OOTOYX 
CSTR  OUT 
' lpt" ',0 
AX,  AX 
AX,  [LPT] 

AX 

BXM_OOT 

CSTROUT 

'  la  MOT  Ready. ',0 
SHORT  PLH9 
AX, 0634h 
OOTOYX 
CSTR_OOT 
'LPT  ',0 
AX,  AX 
AX, [LPT] 

AX 

BINOUT 

CSTRODT 

'  is  Ready.  ' ,0 

[Color] , CL 

OX 

CX 

BX 

AX 


i sand  string  to  screen 

j row/ col 
; set  cursor 


7  send  string  to  screen 
7 restore  color  value 


KNDP  DISPLAY  STATUS 


Instructions  for  use  of  the  print  menu  system  . 
Input  •  None 
Output  ■  None 


PROC 


PRINT 

MENU  3NSTRU 

PUSH  ~ 

AX 

; save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

PRINT  WINDOW 

MOV 

AX, 1500h 

j  row  21, column  0 

CALL 

MBNUBOX 

7 draw  menu  box 

MOV 

AL,  [Menu] 

MOV 

[Color] , AL 

MOV 

AX, ISOPh 

7 row  22, column  12 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

'Use  the  arrow  keys 

to  position  the  Highlight  Bars.',0 

MOV 

AX, 1709h 

7 row  23, column  12 

CALL 

OOTOYX 

CALL 

CSTR__OUT 

db 

'Press  the  <Bnter> 

key  to  begin  the  highlighted  Menu  Bar  ' 

db 

' conmand . ' , 0 

MOV 

AL, [Normal] 

MOV 

[Color] , AL 

POP 

DX 

7 restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

PRINT 

MHNU  INSTRU 

KNDP 

; 

> 
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I  — 
; 
i 

HOC 


ENDP 


PROC 

OPOi 

OPlt 


OP4 1 


draw  ID  diplay  windows  and  key  instructions 
Input  *  none 

Output  ■  Mona 

PRINT  WINDOW 

MOV  ~  AL,  [Worms  1] 

/ set  Color 

MOV  [Color] , AL 

CALL  CLXAR  TITLX 

MOV  AX, 0802h 

/row  8  column  4 

CALL  OOTOYX 

CALL  CSTROUT 

db  a<Up  Arrow>  -  Move  Up 

■ 

db  "<Dn  Arrow>  ■  Move  Dna,0 

MOV  AX,  0A02h 

/row  10, column  4 

CALL  OOTOTX 

CALL  CSTR_OUT 

db  a<PageUp>  ■  Scroll  Up 

■ 

db  *<BaaM>  ■  First  IDa,0 

MOV  AX, 0C02h 

/row  12, column  4 

CALL  OOTOTX 

CALL  CSTROUT 

db  a<PageDn>  -  Scroll  Dn 

M 

db  "<Bnd>  ■  Last  IDa,0 

— draw  display  windows 

MOV  AL,  [System] 

MOV  [Color] , AL 

MOV  AX, 061Bh 

MOV  BX,1436h 

CALL  CLEAR  WINDOW 

CALL  HIDE  COR 

MOV  [Color], CL 

/restore  original  Color 

CLC 

/dear  carry  flag 

RET 

PRINT  WINDOW 

Special  version  if  Oet_Choice  to  control  menu  end  ID  diepley  on  screen. 
Input  «  AX  points  the  desired  Menu  date  structure 

CH  m  starting  Choice  (menu  item  to  highlight) 

CL  m  max  number  of  choices  in  this  menu. 

Output  ■  AH  ■  Choice  is  returned  to  the  calling  program 

AL  -  Char  from  the  keyboard.  (Return  key  or  Bsc  key) 

Calls  'DisplayJMenu'  to  display  the  menu  on  the  screen. 

'Hotkey*'  to  see  is  Char  is  a  HotKey  for  this  menu 


QETPRINTCHOICS 
POSH  BX 

PUSH  CX 

PUSH  DX 

MOV  DX, AX 

CALL  DISPLAYMKNU 
MOV  BL, CH 

CALL  OBT_CHAR 
CALL  ISIDKEY 
JC  0P1 

CMP  AL,  '  1' 

JC  OP4 

CMP  AL, ' / ' 

JNC  OP4 

CALL  NUMLOCX 
CMP  AL,  4 

JHZ  0P5 

INC  CH 


;menu  to  the  screen 
;save  old  Choice  in  BL 
;get  keyboard  input. 

; change  display? 

;loop  if  YES . 

; is  Char  <  '1' 

; if  yes  goto  next  test 
;is  Char  a  digit  ? 

; if  not  goto  next  test 
; covert  NumLock  pad 
;Is  it  a  right  arrow? 
/jump  if  not 
/Choice  ■  Choice  +  1 
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095 1 


095 1 

0(9 

AL,13h 

;Xs  it  a  left  arrow? 

jn 

095 

; jump  if  not 

DKC 

CH 

/ Choice  ■  Choice  -1 

jn 

095 

/if  CH  ■  0  then 

MOV 

CH,  CL 

I  set  CH  «  ■■menu . 

09C  t 

019 

CL,  CH 

«Xs  CH  >  aaxmanu? 

JMC 

097 

/ Xf  yes  then 

MOV 

CH,  1 

/set  CH  ■  1 

097 1 

019 

AL,ODh 

>is  it  a  return  key? 

JZ 

0910 

;if  yes  return 

cmp 

AL,lBh 

;is  it  an  escape  key? 

am 

098 

; if  no  goto  next  test 

SOB 

CH,  CH 

/if  yes,  choice  ■  0 

JMP 

SHORT  0910 

;exit i  save  new  Choice 

098 1 

CALL 

HOT  KITS 

/ is  Char  a  hot  key? 

JC 

099 

; carry  ■  No;  next  char 

cans 

AH,  CH 

;has  Choice  changed? 

JZ 

0911 

;if  not  then  exit 

MOV 

CH,  AH 

;sava  new  Choice 

CALL 

DISPLAY  MHO 

/display  menu  on  Ixit 

JM9 

SHORT  0911 

» exit ;  save  new  choice 

099 1 

CMP 

CH|  BL 

; new  Choice-old  Choice? 

JZ 

091 

;yes  -  no  menu  display 

JM9 

SHORT  090 

;no  -  call  display  menu 

0910 1 

MOV 

AH,  CH 

; save  choice  on  Exit 

0911 1 

909 

DX 

909 

ex 

909 

BX 

HIT 

■NDP 

QXT_PRINT_CH0XC8 

1 

;  Im 

this  character  a  ksy  that  controls  ths  display  of 

IDs? 

i 

Input  m 

AL  contain  ascii  character 

i 

Local  variables: 

i 

BX  ■  [TopBar]  is  indax  number  at  top 

of 

screen  (1  to  MaxXd) 

; 

CL  m  [HiBar]  *  hilita  bar  position  4 

1 

to  15 

; 

Note:  15  -  top  and  1  -  bottom 

1 

} 

Output 

-  Carry  Flag  ■  Yes 

9R0C 

XS  ID  KSY 

POSH 

AX 

POSH 

BX 

POSH 

ex 

POSH 

DX 

MOV 

BX, [TopBar] 

;Xd  at  top  of  screen 

MOV 

CL, [HiBar] 

; bight  bar  poition 

; - 

■-is  it  Control  Inter  ? 

CMP 

AL, OAh 

;is  it  Ctr-Return  ? 

JNZ 

XXK2 

;if  NO  goto  next  test 

CMP 

CH,  2 

;is  choice  -  untag  all? 

JMZ 

XXXI 

;if  NO  goto  next  test 

CALL 

OMTAO  ALL 

;else  untag  all  and 

JM9 

XXX13 

/display  results 

XIKl : 

CMP 

CH,  1 

;is  choice  -  tag  all  ? 

JNZ 

XXK2 

/if  NO  goto  next  test 

CALL 

TAG  ALL 

/else  tag  all  IDs  and 

JM9 

XXX13 

/display  results 

> - 

— is  it  a 

Down  arrow  ? 

XXK2 : 

CMP 

AL,  24 

/is  it  Down  arrow? 

JNZ 

XXK5 

/if  not  goto  next  test 

MOV 

AX,BX 

/get  top  of  screen 
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JUDO 

AX,  16 

XOK 

CB.CM 

sub 

AX,CX 

CMP 

IMaxXd]  f  ax 

JKC 

XXX3 

JMP 

XXX14 

XXK3 1 

CMP 

CL,  1 

JZ 

XXX4 

DSC 

CL 

JMP 

XXX13 

IIK4: 

INC 

BX 

JMP 

SHORT  XXX13 

1 - 

-ia  it 

an  Up  arrow  ? 

IXK5: 

CMP 

Ah,  5 

JMZ 

XXK7 

CMP 

CL,  IS 

JZ 

XXK6 

? 

INC 

CL 

JMP 

SHORT  XXK13 

XXK6 : 

CMP 

BX,  1 

JZ 

XXK14 

DMC 

BX 

JMP 

SHORT  XXK13 

7 - 

-Xa  it 

a  Homa  Kay  ? 

XXK7: 

CMP 

AL,1 

JMZ 

IXK8 

MOV 

BX,  1 

MOV 

CL,  15 

JMP 

SHORT  XXK13 

7 - 

-Xa  it 

a  Bad  Kay  ? 

XIK8: 

CMP 

AL,  6 

JMZ 

IIK10 

MOV 

AX, [MaxXd] 

CMP 

AX,  15 

JC 

XIK9 

SUB 

AX,  14 

MOV 

BX,AX 

MOV 

CL,  1 

JMP 

SHORT  IXK13 

XIK9: 

SUB 

AX,  BX 

MOV 

CL,  15 

SUB 

CL,  AL 

JMP 

SHORT  XXK13 

7 - 

-Xa  it 

tha  PagaUp  Kay  ? 

IXK10: 

CMP 

AL,  18 

JMZ 

XXK11 

MOV 

AX,  BX 

CMP 

BX,  16 

paga  + 

1 

MOV 

BX,  1 

JC 

SHORT  XXK13 

SUB 

AX,  15 

MOV 

BX,  AX 

JMP 

8H0RT  XXK13 

f - 

•-Xa  it 

tha  PagaDn  Kay  ? 

IIK11: 

CMP 

AL,  3 

JMZ 

XXK12 

MOV 

AX,  BX 

ADD 

AX,  15 

CMP 

[MaxXD] , AX 

JC 

XXK14 

add  langth  o£  acraan+1 
■aka  a  16  bit  numbar 
top  of  acraan+16-bar 
la  bar  at  BndOfXndax? 
if  MO  continua  alaa 
if  Yaa  axit  do  nothing 
ia  bottom  of  window  ? 
if  yaa  inc  a tar ting 
alaa  ine  bar  nuabar 
axit  changa 
inc  a tar ting  nuabar 
diaplay  naw  diractory 

La  it  Op  arrow  7 
Lf  no  goto  naxt  taat 
La  curaor  at  tha  top 
Lf  yaa  chaek  indax  no. 
if  MO  aova  hilita  up 

axit  changa 
ia  thia  top  to  liat? 
if  yaa  Kxit  no  changa 
if  MO  dacraaaa  indax 
axit  changa 

go  to  Top  of  Diractroy 
ia  it  Hama  kay? 
if  not  goto  naxt  taat 
aat  top  of  indax 
aat  bar  at  top 
diaplay  naw  diractory 
go  Bottom  of  Diractory 
ia  it  End  kay  ? 
if  not  goto  naxt  taat 
gat  nuabar  of  filaa 
will  it  fill  tha  box  ? 
if  MO  computa  bar  poa. 
computa  top  of  acraan 
aat  top  of  acraan 
bar  to  bottom  acraan 
diaplay  naw  diractory 
invaraa  of  bar  poaition 
top  -  invaraa  -  poat. 
aat  bar  poaition 
diaplay  diractory 

ia  it  tha  pagaup  kay  ? 
if  goto  naxt  taat 
aava  top  of  acraan 
ia  thia  tha  firat  paga 

aat  top  in  caaa  YHS. 
if  it  ia  firat  paga 
aubtarct  a  paga 
naw  addraa  in  bx 
diaplay  naw  paga 

ia  it  tha  pagadn  kay  ? 
if  goto  naxt  taat 
numbar  of  XDa 
ptr  to  top  of  laatpaga 
ia  thia  tha  laatpaga? 
if  NO  akip  bar  chack 
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ADO 

BX,15 

MOV 

AX,  [MaxID] 

SUB 

AX,  BX 

CMP 

AX,  14 

JMC 

XXK13 

MOV 

AH,  15 

SUB 

AH,  AL 

CMP 

CL,  AH 

JMC 

XXX13 

MOV 

CL, AH 

JMP 

SHORT  XXX13 

XXK12 i 

CXaC 

JMP 

SHORT  XXK15 

XXX13 : 

MOV 

[TopBar] , BX 

MOV 

tHiBar] ,CL 

CALL 

DISPLAYIDS 

XXK14 : 

STC 

XXK15 : 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

HR 

XMDP 

• 

IS_ID_ 

_KR 

9 

.DATA 

TKey 

db 

9 

,0 

db 

'  m  m 

4m  4m 

9 

,0 

WUk  WUUL 

db 

'  m  * 

db 

',0 

db 

'.0 

db 

',0 

db 

J'.O 


;else  go  Pag*  +  l 
>got  max  index  nuaber 
lim  this  the  last  page 
><14  means  change  bar 
» «it  if  not  last  page 
>max  lines  on  the  page 
; convert  highlit  bar  no 
i is  bar  below  last  line 
lit  no  do  not  sore  bar 
>«1*«  set  new  hilite  bar 

t  clear  flag  asms  not 
>•  key  for  this  routine 
;save  current  bars 


; set  carry  flag  •  change 


m  m 


m 


™  WWTOwS 


■WWVWWWI 


M  M  M 

vW>  wH  4m 


m 


m  WSSM  M 


a  a  a  a  a 


tuUUUUuJUUL 

Tfwvmwm 


Shade 


i  r 


r  i 


db 
,0 
db 
,0 
db 
,0 
db 
,0 
db 
,0 
db 
,0 
db 
■'.0 
db 

■■'.0 


.  CODB 

, - Display  the  programs  title  on  the  screen 


A-68 


data  sac t ion 


Output  m  Mena 

Vidao  aodai  taxt  row  ■  25  Col  ■  80 


PROC  DRAW  TITLE 


PUSH 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

CALL 

CLEARTITLE 

MOV 

AL, [Warning] 

MOV 

[Color] , AL 

MOV 

AX, 0800h 

MOV 

BX, 134Fh 

CALL 

CLEARWINDOW 

MOV 

AL, [Manu] 

MOV 

[Color] ,AL 

MOV 

AX, 0902h 

MOV 

BX, 124Dh 

CALL 

CLEAR  WINDOW 

/ 


TIT2 : 


draw  a ha ding 


MOV 

AL,  [Bordar] 

MOV 

[Color] , AL 

MOV 

CX,  8 

MOV 

BX, 0A05h 

MOV 

AX,0££sat  Shada 

XCHO 

AX,  BX 

CALL 

QOTOYX 

XCHO 

AX,  BX 

CALL 

OSTR  OUT 

MOV 

AX,  SI 

INC 

AX 

INC 

BH 

LOOP 

TIT2 

i 


TITli 


TITS  < 


KNDP 


draw  titla 
MOV  AL,  [Normal] 

MOV  [Color] ,AL 

MOV  CX,  7 

MOV  BX,0A04h 

MOV  AX,0££sat  TXay 

XCHO  AX.BX 

CALL  QOTOYX 

XCHO  AX, BX 

CALL  TITLB_OTJT 

MOV  AX, 81 

INC  AX 

INC  BB 

LOOP  TIT1 

POP  OX 

POP  CX 

POP  BX 

POP  AX 

BBT 

OBAN  TITLE 


tiava  raglstara 


;  claar  main  window 


;lina  countar 
t row/ col 


;lina  countar 
» row/ col 


t - Claar  tha  main  display  window  in  tha  BditKay  viaw  program. 

;  Input  ■  Nona 

;  Output  ■  Nona 

t  15  colors  row  ■  25  Col  *  80 

; 

FROC  CLEAR  TITLE 
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nm  r«gict«ra 


PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

MOV 

CL, {Color] 

MOV 

AL, [Normal] 

MOV 

[Color] ,AL 

MOV 

AX, 0400h 

MOV 

SX, 144Ph 

CALL 

CL1AH_WXMD0 

MOV 

[Color] , CL 

POP 

CX 

POP 

BX 

POP 

AX 

KHT 

CLXAft 

TXTLX 

{save  orig.  color  attri 
{get  background  color 
;aasign  backgd  color 
>  row  4  /column  0 
jrow  20  /coluan  79 
{dear  display  window 
;raatora  orig.  color  att 


; - Sand  an  ASCIXZ  string  to  scraan  and  skip  all  <spaca>  but  advance 

t  tha  cursor  £or  each  spaca. 

; 

;  Input  >  AX  oust  point  to  tha  string.  Tha  string  must  and  with 

/  a  hax  zaro.  Tha  dasirad  color  attribute  Bust  be  defined 

;  in  tha  data  sagmant. 

;  Output  a  Nona.  All  register  are  saved  except  SX. 

l 

PROC  TITLE  OUT 


PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

SI,  AX 

;pointer  to  string. 

MOV 

BH,  0 

{page  0  asummad 

MOV 

CX,1 

;from  data  segment. 

MOV 

BL, [Color] 

{load  color  attribute 

TITLls 

MOV 

AL, [SX] 

{get  char  from  string 

CMP 

AL,  0 

{Is  it  the  end  7 

JZ 

TXTL2 

{exit  if  end  of  string 

CMP 

AL,20h 

{is  it  a  space  7 

JNZ 

TXTL3 

{if  space  skip  7 

CALL 

INC  CURSOR 

JMP 

SHORT  TXTL4 

TXTL3 » 

MOV 

AL,20h 

{write  a  space 

MOV 

DL,  AL 

{store  char  in  DL 

MOV 

AX, 0920h 

{write  1  space  to 

PUSH 

SX 

{save  SX  register 

IHT 

lOh 

{set  color  attribute 

MOV 

AH, OKh 

{fun.no.  teletype  aioda 

MOV 

AL,DL 

{ get  char  for  DL  reg. 

INT 

lOh 

{char  to  the  console 

POP 

SX 

{restore  SX  register 

TXTL4 : 

INC 

SX 

{point  to  next  char 

JMP 

SHORT  TXTL1 

{get  next  character. 

TITL2: 

POP 

DX 

POP 

CX 

{restore  registers. 

POP 

BX 

POP 

AX 

RXT 

XNDP 

TITLKOUT 

t 

.CODE 

1 

; - 

-Sat  tha 

colors  variables  for  tha  video  aiode. 
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f 

I 

Inputs 

18  Is  a  ptr  to  the 

(PSP)  Program  Segment  Prefix 

> 

(whan  DOS  prograu  nr*  loaded  the  18  register  points  to  PSP) 

; 

Outputs  None 

PROC 

COLOR 

MODI 

MOV 

DI/ 80h 

joffset  to  len  COM  tail 

ZOR 

AX,  AX 

}sero  register 

ADD 

AL, [18 iDI] 

;get  len  Com  tail 

JZ 

VID2 

{ jap  if  no  parameters 

MOV 

CX,  AX 

{loop  counter 

VIDO: 

INC 

DI 

{ptr  to  next  byte 

MOV 

AL, [IS iDI] 

{is  it  the  marker? 

AMD 

AL, SFh 

{make  a  capital  letter 

CMP 

AL, 'M' 

{is  it  the  mono  par? 

JZ 

VID1 

{if  Yes  jump  to  Mono 

LOOP 

VIDO 

{look  through  COM  tail 

JMP 

8HORT  VID2 

{Not  found  get  dis  mode 

vtdi  > 

CALL 

MONO  VIDEO 

{set  color  variables 

JMP 

SHORT  VID5 

{exit 

VXD2 1 

ZOR 

AX,  AX 

MOV 

AH, Ofh 

{get  display  mode 

XMT 

lOh 

{BIOS  function. 

CMP 

AL,  7 

{is  it  Text-Mono  ? 

JMZ 

VID3 

;No  ■  jsq>  next  test 

CALL 

MONO  VIDEO 

{■at  color  variables 

JMP 

SHORT  VTD5 

{exit 

VXD3  s 

CMP 

AL, OPh 

{is  it  Graph-Mono? 

JMZ 

VID4 

{No  ■  jmp  next  test 

CALL 

MONO  VIDEO 

{set  color  variables 

JMP 

SHORT  VID5 

{exit 

vro4i 

CALL 

COLORVIDEO 

{set  color  variables 

VXDS  i 

ret 

PROC 

COLOR 

VIDEO 

MOV 

BX, offset  Menu 

MOV 

AL,71h 

{Menu-Blue/Lt  White 

MOV 

[BX]  ,  AL 

INC 

BX 

MOV 

AL, lFh 

{Normal -White/Blue 

MOV 

[BX] , AL 

INC 

BX 

MOV 

AL, lEh 

{HiLite-Yellow/Blue 

MOV 

[BX]  ,  AL 

INC 

BX 

MOV 

AL, 7Ph 

{MenuMes-White/Lt  White 

MOV 

[BX] ,AL 

INC 

BX 

MOV 

AL,4Ph 

{ Warning-White/Red 

MOV 

[BX] , AL 

IMC 

BX 

MOV 

AL, 070h 

; Border bBI ack/Whi te 

MOV 

[BX] , AL 

RET 

KNDP 

COLOR 

VIDEO 

PROC 

MONO  VIDEO 

MOV 

BX, Offset  Menu 

MOV 

AL,70h 

i Menu-Black/White 

MOV 

[BX] , AL 

IMC 

BX 

MOV 

AL, OFh 

{Normal-  White/Black 

MOV 

[BX] ,AL 
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{HiLite*  Whits /Black 


me  bx 

MOV  AL, orh 

MOV  [BX] ,AL 

me  BX 

MOV  AL, 7 Oh  {ManuMea-Black/White 

MOV  [BX] ,AL 

me  BX 

MOV  AL, Orh  {Warning*  Whita/Black 

MOV  [BX] , AL 

me  BX 

MOV  AL, 7Fh  {Border*  Whita/Lt  White 

MOV  [BX] , AL 

BBT 

BNDP  MONOVTDBO 
XMDP  COLOR  MODS 


Sava  the  currant  uaara  video  information  to  be  restored  by  RX8TORXVIDKO 
sat  text  video  mode  for  this  program. 


{ 

Input  * 

None 

{ 

Output 

■  set  variables  t  [vidmoda] , [vidpage] , [vidcurs] , [vidf ont] 

{ 

[vidattr]  and 

[vidbord] 

{ 

Hote:  has  no  effect  if  the  dos  version 

is  less  than  3.30. 

1 

PROC 

TXXT  VIDEO 

7 - 

--test  for 

DOS  3.3  or  greater 

MOV 

AH, 30h 

{get  dos  ver  number 

INT 

31h 

XCHQ 

AH,  AL 

{high  byte  to  ah 

CMP 

AX, 031Xh 

{is  dos  >*  3.30  7 

JNC 

SVO 

{if  yes  continue  else 

JMP 

SV5 

{exit  assume  text  mode 

7 - 

--get  video  mode 

SVO : 

MOV 

AH, Orh 

{get  video  mode 

INT 

lOh 

MOV 

[vidmoda]  ,  AL 

{save  videomode 

MOV 

[vidpage] , BH 

{save  vidaopaga 

7 - 

--get  cursor  information 

MOV 

AH,03h 

{get  cursor  status 

INT 

lOh 

MOV 

[vidcurs] , CX 

{save  cursor  shape 

; - 

--get  font 

sixe 

MOV 

AX, 1130h 

{get  font  information 

XOR 

BH,BH 

{0  ■  currant  font 

INT 

lOh 

MOV 

AX, 1112h 

{assume  small  font 

CMP 

CX,  8 

{is  it  8x8  font  7 

JZ 

SV1 

{if  yes  save  font 

MOV 

AX, 1114h 

CMP 

CX,  16 

{is  it  8x16  font  7 

JZ 

SV1 

{if  yes  save  font 

MOV 

AX,llllh 

{assume  8x14  font 

SV1: 

MOV 

[vidf ont] , AX 

{save  current  font 

7 - 

--get  current  color  attributes 

MOV 

AH, 08h 

{read  char  and  attri 

MOV 

BH, [vidpage] 

{get  current  video  page 

INT 

lOh 

MOV 

[vidattr] , AH 

{save  color  attribute 

mov 

CL, 4 

{ counter 

SHR 

AH, CL 

{high  nibble  to  low 

MOV 

[vidbord] , AH 

{save  background  color 

7 - 

--is  this 

x  VQA  system  ? 
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MOV 

AX, lAOOh 

{read  video  config. 

HIT 

lOh 

CMP 

AL, lAh 

tia  it  an  VOA  ? 

JNZ 

SV2 

; if  no  than  exit 

MOV 

AX, 1008h 

I if  yaa  gat  border  color 

nrr 

lOh 

MOV 

[vidbord] , BH 

;aava  border  color 

, - 

--aat  font 

typa 

MOV 

AX, 1114h 

; 8x16  character  aat 

XOR 

BL,BL 

XMT 

lOh 

; - 

•-aat  taxt 

video  mode 

SV2 : 

MOV 

AX, 0003 

{default  video  taxt  mode 

MOV 

BXi,  [vidmode] 

;get  currant  mode 

CMP 

BL,7 

;ia  it  mono  taxt  ? 

JZ 

SV5 

;if  yaa  no  change 

I  NT 

lOh 

; aat  color  text  mode 

SV5 1 

MOV 

AL,  [Mormal] 

MOV 

[Color] , AL 

CALL 

CLEAR  SCREEN 

CLC 

{dear  carry  flag 

RST 

BNDF 

TEXT  VIDEO 

Reatora  the  uaera  video  information  which  waa  aava  by  SAVKVIDKO 
whan  tha  program  bagan. 

Input  ■  Nona 

Output  ■  Claara  tha  acraan 

Nota:  uaaa  variable*:  [vidmode] , [vidpaga] , [vidcura] , [vldfont] 

[vidattr]  and  [vidbord] 


PROC  RKSTORKVIDKO 
PUSH  XS 

t - taat  for  DOS  3.3  or  graatar 


MOV 

AH, 30h 

{get  doa  var  number 

INT 

21h 

XCHQ 

AH,  AL 

{high  byte  to  ah 

CMP 

AX, 031Bh 

{ia  doa  >-  3.30  ? 

JC 

REV2 

{default  to  w/b 

;  — 

- reatora 

original  video  mode 

MOV 

AL, [vidmode] 

{gat  video  mode  no. 

XOR 

AH,  AH 

INT 

lOh 

,  — 

- return  diaplay  paga  to  0 

MOV 

AX, OSOOh 

INT 

lOh 

i - 

- reatora  original  font  aize 

MOV 

AX,  [vidfont] 

XOR 

BL,BL 

INT 

lOh 

/  — 

- read  curaor  configuration 

MOV 

AH, 03h 

XOR 

BH,BH 

INT 

lOh 

i  — 

— reatora 

original  video  paga 

MOV 

AL, [vidpaga] 

MOV 

AH,  5h 

INT 

lOh 

» - 

- reatora 

curaor  ahapa 

MOV 

CX, [vidcura] 

» 


MOV  AH.Olh 

HIT  lOh 

/ - Ht  border  color 

MOV  AX, 1001b 

MOV  BH, [vidbord] 

XMT  lOh 

, - clear  the  screen  if  do*  3.3  or  greater 

MOV  AX*  0600h 

MOV  B8*  [vidattr] 

XOR  CX,  C3 

MOV  DX,40h 

MOV  BS,DX 

MOV  DX*  [SS 1 4Ah] 

DIC  DX 

MOV  DB,  [IS  1 84h] 

XMT  lOh 

JMP  SHORT  RBV3 

, - clear  screen  if  not  do*  3.3  or  greater 


RXV2  : 

MOV 

AL, [Vidattr] 

MOV 

[Color]  ,AL 

CALL 

CLBARJ9CRKRN 

RBV3: 

CLC 

FOR 

RBT 

BS 

KNDP 

RBSTORB 

VIDEO 

; scroll  6  clear  window 
/get  color  attribute 
/■tart  row  0,  col  0 
/bio*  data  area 
;ptr  to  data  area 
/ get  number  of  columns 
/convert  to  0  start 
/ get  nuaber  of  row* 
/clear  whole  screen 


/■ ystem  color  W/B 
/set  color 
/blank  the  screen 
/clear  carry  flag 


Open  a  Disk  Vile  using  the  file  Handle  method. 

Input  ■  AX  -  ptr  ASCXXZ  naae  of  the  file. 

■hared/read/write  access  assumed. 

Output  ■  Carry  flag  set  if  an  opening  error  or 

file  size  in  AX  and  DX/  rile  Handel  in  BX. 
is  set  to  beginning  of  the  file. 


» 

Motet 

Registers 

/ 

PROC 

OPBM 

MOV 

DX,  AX 

MOV 

AH,3Dh 

MOV 

AL,42h 

XMT 

21h 

JC 

OP1 

MOV 

BX,  AX 

XOR 

AX,  AX 

MOV 

CX,  AX 

MOV 

DX,AX 

MOV 

AX, 4202h 

XMT 

21b 

PUSH 

AX 

PUSH 

DX 

XOR 

AX,  AX 

MOV 

CX,  AX 

MOV 

DX,AX 

MOV 

AX,4200h 

XMT 

21h 

POP 

DX 

POP 

CLC 

AX 

JMP 

SHORT  OP4 

OPlt 

CMP 

AX, OCh 

JMZ 

OP2 

XOR 

AX,  AX 

OP2 1 

CMP 

AX,  6 

not  saved. 


/ptr  to  file  naae  string 
/ open  file  with  handle 
/• hare/read/write  mode 
/ try  to  open  file. 

/carry  »  opening  error 
/file  handle  in  BX 
/zero  AX 

/off  set  froa  BOF 
0  in  a  AMD  DX. 
/position  at  BOF 
/size  of  file  in 
/bytes  returns  in 
/AX  and  DX. 

/zero  AX 

/off  set  froa  BOF 
/-  0  in  CX  AMD  DX. 
/position  file  pointer 
/file  ptr  to  BOP 
/size  of  file  returns 
/in  AX  and  DX  rags, 
/clear  carry  flag 
/return  to  calling  prg. 
/is  access  code  wrong? 
/if  not  skip. 

/zero  AX  if  wrong  code 
/is  error  code  >  5  ? 
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093 : 


JC 

093 

/if  not  skip. 

MOV 

AX, 6 

/end  of  error  table 

093 1 

MOV 

[BrrCoda] , AL 

/ save  error  code 

SBL 

AX,  1 

/multi  err  code  by  2 

MOV 

BX, Offset  OpenBrr 

/ open  error  table  base 

JUDD 

BX,  AX 

/ add  err.  offset  to  base 

CALL 

CLBAR  MBS SAGS 

MOV 

CH, [Warning] 

/warning  color 

MOV 

CL, [Color] 

/save  original  color 

MOV 

[Color] , CH 

/set  color 

MOV 

AX, 0207h 

/row  3 /Col  8 

CJLLL 

OOTOYX 

/set  cursor 

CALL 

CSTR  OUT 

/output  this  line  to 

db 

'  Brror 1  opening  ' , 0 

/the  screen. 

MOV 

AX,DX 

/File  name  pointer. 

CALL 

DSTR  OUT 

/output  file  name. 

MOV 

AX, [BX] 

/ptr  msg  string  to  AX 

CALL 

DSTR  OOT 

/display  type  of  error 

MOV 

[Color] , CL 

/restore  original  color 

CALL 

HXDX  COR 

CALL 

KRR  SOUND 

CALL 

OBT  CHAR 

/to  stop  program 

STC 

/set  carry  flag 

094: 

RXT 

KNDP 

OPEN 

1 

.DATA 

OpenBrr 

dw 

Offset  OpBl, Offset  OpB2, Offset  OpB3 

dw 

Offset  OpB4, Offset  OpBS, Offset  OpB6, Offset  OpB7 

OpBl 

db 

Invalid  access  code.  ',0 

OpB2 

db 

Invalid  function.  ',0 

OpK3 

db 

File  not  found.  ',0 

OpS4 

db 

Path  not  found.  ',0 

OpB5 

db 

No  handles  available.  ',0 

OpB6 

db 

' :  Access  denied .  ' , 0 

OpB7 

db 

' :  Brror  code  beyond  table .  ' , 0 

t 

.CODB 

i 

-Send  a 

ASCII  String  of  a  given  length  in  the 

Data  Sag.  to  the  console. 

i 

Input 

■  AX  must  points  to  the  first  character 

to  send  in  the  string. 

i 

CL  >  number  of  bytes  to  send 

t 

Output 

*  None.  AX-DX  registers  saved. 

9R0C  SOB  DSTR 

DOT 

90SB 

AX 

/save  registers 

POSH 

BX 

POSH 

CX 

POSH 

DX 

MOV 

SI, AX 

/pointer  to  string. 

MOV 

DL,  CL 

/DL  b  number  of  chars 

MOV 

BH,  0 

/ page  0  asummed 

MOV 

BL, [Color] 

/load  color  attribute 

MOV 

CX,  1 

/from  data  segment. 

DSTR3 : 

MOV 

AL, [SI] 

/get  char  from  string 

CMP 

AL,  0 

/Is  it  the  end  ? 

JZ 

DSTR4 

/exit  if  end  of  string. 

MOV 

DH,  AL 

/store  char  in  DH 

MOV 

AX, 0920h 

/write  1  space  to 

POSH 

SI 

/ save  SI  register 

XHT 

lOh 

/set  color  attribute 

MOV 

AH, OBh 

/  fw.no.  teletype  mode 

MOV 

JLL.DH 

/get  char  for  DB  rag. 
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XMT  lOh 

909  81 

me  si 

Die  DL 

jmx  8hor 

DSTR4 t  909  DZ 

909  CZ 

909  BZ 

909  AZ 

BIT 

BND9  SUB  DSTR  OUT 


lOh 

SI 

SI 

DL 

SHORT  DSTR3 

DX 

CZ 

BZ 

AZ 


/char  to  the  consol* 
ir**tor*  DI  register 
; point  to  next  char 
/character  countar 
;g*t  next  character. 

/ restore  registers. 


9ROC  OOTOYX 
9USH 
9USH 
BUSH 
BUSH 
MOV 
CM9 
JC 
MOV 

ML0C1:  CM9 
JC 
MOV 

MLOC2:  MOV 
MOV 
INT 
909 
909 
909 
909 
RBT 


•Bosition  the  cursor  on  the  screen 

Input  ■  AH  (row)  AL  (column)  position  in  binary  numbers. 

Output  ■  none.  All  registers  restored. 

Motes:  upper  left  hand  eornor  ■  0,0 

page  0,  25  rows  and  80  columns  screen  assumed. 

Calling  with  DH  •  25  will  hid*  the  cursor  off  screenl 1 1 


AX 

BZ 

CX 

DX 

DX,  AZ 
DH,  26 
M&OCl 
DH,  0 
DL,  80 
MLOC2 
DL,  0 
AH, 02h 
BH,  0 
lOh 
DX 
CX 
BX 
AX 


;save  registers 


/is  row  >  25  ? 
jif  yes  default  to  0 
;set  row  to  top  line 
; is  column  >  79  ? 

/ if  yes  defualt  to  0 
; column  to  far  right 
/sat  cursor  funct,  no. 
/page  0  assumed 
/position  cursor 
; restore  registers 


; - Advance  cursor  one  column  on  the  screen 

/  Input  -  non* 

/  Output  »  none.  All  registers  restored. 

t  page  0,  25  rows  and  80  columns  screen  assumed. 

9R0C  INC_CURSOR 

PUSH  AX  /save  registers 

BUSH  BZ 

PUSH  CX 

PUSH  DX 

MOV  AX, 0300h 

MOV  BH, AL 

INT  lOh 

CMP  DL, 79 

JZ  IMC1 

INC  DL 

JM9  SHORT  IMC2 

INC1:  INC  DH 

XNC2:  MOV  AX,0200h 

INT  lOh 

POP  DX  /restore  r*gist« 

909  CX 

POP  BX 


/restore  registers 
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POP  AX 
KIT 

SHOP  INC  CURSOR 


/  -  - - Sid*  cursor  at  row  25,  column  0  balow  tba  last  lina  of  tba  acraan. 

»  Input  «  Nona 

/  Output  -  Nona 

}  Calls  QOTOYX 

}  Notes:  Page  0  and  25  lina  taxt  acraan  assumed. 

/ 

PROC  HIDSCUR 

MOV  AX, 1900h 

CALL  QOTOYX 

RNT 

SNDP  HIDKCUR 
SNDP  QOTOYX 


/  rov«25  col  *  0 
;placa  cursor 


-Sand  an  ASCII  string  in  tba  Data  Sagment  to  tha  consola. 

Input  ■  AX  must  point  to  tba  string.  Tha  string  must  and  with 

a  hax  saro.  Tha  dasirad  color  attributa  must  ba  dafinad 
in  tha  data  sagmant. 

Output  -  Nona.  All  ragistar  ara  aavad  axcapt  SI. 


PROC  DSTR  OUT 


DSTR1 : 


SNDP 


PUSH 

AX 

isava  ragistars 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

SI, AX 

/pointer  to  string. 

MOV 

BH,  0 

/page  0  asummad 

MOV 

AX, CD  AT  A 

PUSH 

DS 

MOV 

DS,  AX 

MOV 

BL, [Color] 

; load  color  attributa 

POP 

DS 

MOV 

CX,  1 

/ f rc .  data  sagmant . 

MOV 

AL, [SI] 

;gat  char  from  string 

CMP 

AL,  0 

;Is  it  the  and  ? 

JZ 

DSTR2 

/exit  if  and  of  string 

MOV 

DL,AL 

/store  char  in  DL 

MOV 

AX, 0920b 

/write  1  space  to 

PUSH 

SI 

/sava  SI  ragistar 

INT 

lOh 

/sat  color  attributa 

MOV 

AH, OSh 

; fiui.no.  teletype  mode 

MOV 

AL,DL 

/gat  char  for  DL  rag. 

INT 

lOh 

/char  to  tha  consola 

POP 

SI 

/restore  SI  register 

INC 

SI 

/point  to  next  char 

JMP 

SHORT  DSTR1 

/gat  next  character. 

POP 

DX 

POP 

CX 

/restore  ragistars. 

POP 

BX 

POP 

AX 

RST 

DSTR 

OUT 

Sand  a  two  byta  unsignad  binary  numbar  to  tba  scraan  in  dacimal  form. 
Input  -  binary  numbar  in  AX 

Output  -  dacimal  numbar  to  tba  scraan.  Ragiatars  rastorad  on  raturn. 
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/  Not*:  this  recursive  procedure  could  us*  up  to  40  bytes  of  stack  spec*. 

/  leading  seros  are  surpressed  and  no  space  padding  is  used. 

/  BIN  OUT  and  DIGIT_OUT  must  be  NEAR  procedures . 


PROC  BIN  OUT 

NHAR 

PUSH 

AX 

I  save  dividend 

PUSH 

BX 

PU8H 

cx 

/save  CX  register 

PUSH 

DX 

/save  remainder 

SUB 

DX,DX 

/sero  DX  register 

MOV 

CX, OAh 

/divisor  is  10 

DIV 

CX 

/AX/10/  answer  in  AX 

CMP 

AX,  0 

/remainder  digit  in  DL. 

JZ 

—BIN 

/if  yes  stop  recursion 

CALL 

BIN  OUT 

zcontin*  recursive  call 

••BIN:  CALL 

DIGIT  OUT 

/display  digit  in  DL. 

POP 

DX 

/previous  digit  to  DL. 

POP 

CX 

/restore  CX  register 

POP 

BX 

POP 

AX 

/restore  AX  register 

RHT 

/NOTH:  this  RBT  will  point  to  MB IN:  to  display 

jeach  digit  of  the  recursions  stored  in  DL  register. 
/After  all  digits  are  displayed  it  will  return  to 
;th*  calling  program. 


/ -  Send  a  digit  (0  to  9}  stored  in  DL  register  to  the  screen 


PROC  DIGIT  OUT 

NEAR 

MOV 

BB,  0 

/ page  0  asummed 

MOV 

BL, [Color! 

/load  color  attribute 

MOV 

CX,  1 

/from  data  segment. 

MOV 

AX, 0920h 

/writ*  1  space  to 

INT 

lOh 

/set  color  attribute 

MOV 

AH, OBh 

/  fim.no.  teletype  mod* 

MOV 

AL,DL 

/get  char  for  DL  rag. 

OR 

AL,30h 

/convert  to  ASCII  digit 

INT 

lOh 

/char  to  the  consol* 

RHT 

HNDP  DIGIT  OUT 

END?  BIN  OUT 


; - o*t  a  Char  from  the  keyboard.  (keyboard  buffer  not  cleared  before  input) 

z  Input  »  none 

/  Output  m  binary  ASCII  keyboard  cod*  in  AL 

z  Carry  flag  a  extended  cod*. 

/  extended  codes  are  converted  to  control  keys  by  KXTCHAR 

PROC  GRT  TEXT 


GBT1 : 

MOV 

AX, 0700h 

/input  function  number 

INT 

21h 

/wait  for  charactor 

CLC 

CMP 

AL,  0 

/clear  carry  flag 
/Is  the  Char  extended? 

JNZ 

—TEXT 

/If  not  extended  return 

MOV 

AH, 07h 

/unfilter  char  input 

INT 

21h 

/to  get  extended  char. 

CALL 

EXT  CHAR 

/convert  extended  codes 

JC 

GET1 

/cf  a  not  on  the  list 

STC 

—TEXT:  MOV 

AH,  0 

/set  carry  flag 
/sero  AH  register. 

ENDP 

; 

/ 

RET 

GET_TEXT 

--Get  a  Char  from  the  Standard  input  device. 

/end  of  subroutine 

(keyboard  assumed) 

/ 

Input  a 

none 

/ 

Output 

a  binary  ASCII  keyboard  cod*  in  AX 
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Carry  flag  ■  axtandad  coda. 


OBTOi 

MOV 

AX, 0C07h 

IVT 

CLC 

21h 

CMP 

AL,  0 

JNZ 

MCHAR 

MOV 

AH, 07h 

urr 

21h 

CALI, 

EXT  CHAR 

JC 

STC 

ONTO 

••CHAR: 

MOV 

AH,  0 

> 

RBT 

>claar  keyboard  buffar 
i and  wait  for  char. 
;daar  carry  flag 
;Za  tha  Char  axtandad? 
jlf  not  axtandad  raturn 
;unf iltar  char  input 
;to  gat  axtandad  char. 

; convart  axtandad  codaa 
icf  ■  not  on  tha  list 
;aat  carry  flag 
; zaro  AH  raglatar. 

; and  o£  aubroutlna 


Input  ■  axtandad  coda  in  AL 
Output  m  convartad  coda  in  AL 

Carry  flag  if  not  ona  of  tha  Kaya  liatad  balowt 
Hxtandad  Coda  Convartad  tot  Ctrl -Char  Ctrl-Valua 


Kay 

Hotna 

UpArr 

PgUp 

LtArr 

RtArr 

End 

DnArr 

PgDn 

Ina 

Dal 


47h 
48h 
49h 
4Bh 
4Dh 
4Fh 
5  Oh 
51h 
52h 
53h 


A 

*R 

*8 

“D 

*F 

"X 

"C 

Av 


lh 

5h 

12h 

13h 

4h 

6h 

18h 

3h 

lfih 

7h 


PROC  RXT_CHAR 
CMP- 
JNZ 
MOV 
JMP 

RXTOt  CMP 
JNZ 
MOV 

JMP 

RXT1 :  CMP 

JNZ 
MOV 

JMP 

KXT2:  CMP 

JNZ 
MOV 
JMP 

KX73 :  CMP 

JNZ 
MOV 

JMP 

BXT4*  CMP 
JNZ 
MOV 
JMP 

RXT5 i  CMP 

JNZ 
MOV 
JMP 

EXT6 i  CMP 
JNZ 
MOV 


AL,47h 
BXTO 
AL,  1 

SHORT  8XT10 
AL, 48h 
EXT1 
AL,  5 

SHORT  BXT10 
AL, 49h 
BXT2 
AL, 12h 
SHORT  BXT10 
AL,4Bh 
HXT3 
AL, 13h 
SHORT  RXT10 
AL, 4Dh 
BXT4 
AL,  4 

SHORT  IXT10 
AL, 4Ph 
KXT5 
AL,  6 

SHORT  KXT10 
AL, 50h 
BXT6 
AL, 18h 
SHORT  RXT10 
AL, 51h 
KXT7 
AL,  3 
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JKP 

SHORT  RXT10 

XXT7: 

CMP 

AL,52h 

JMZ 

RXT8 

MOV 

AL,16h 

JMP 

SHORT  RXT10 

KXTSi 

CMP 

AL, 53h 

JMZ 

RXT9 

MOV 

AL,  7 

JMP 

SHORT  RXT10 

XZT9< 

STC 

; set  carry  flag 

JMP 

SHORT  EXT11 

SXTIOt 

CLC 

/clear  carry  flag 

BXTllt 

RBT 

SHOP 

/ 

SXT  CHAR 

; 

SHOP  QKTCHAR 

/ - 

-Send  an  ASCII  string  in  tha  Code  segment  to  the 

console . 

/ 

The  call  must  be  right  before  the  string.  The  string  must  end  with 

/ 

a  hex  sero. 

This  procedure  must  be  called  as  a 

near  procedure. 

/ 

The  desired 

[color]  attribute  must  be  stored  in 

the  Data  segment. 

/ 

Motet  All  registers  save  except  SI. 

CSTR  OUT 

HKAR 

POP 

SI 

PUSH 

AX 

/save  registers 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

BH,  0 

/page  0  asummed 

MOV 

BL, [Color] 

/load  color  attribute 

MOV 

CX,1 

/from  data  eegment. 

I 

MOV 

AL, [CStSI] 

/ get  char  from  code  seg 

CMP 

AL,  0 

JZ 

CSTR2 

/ 0  a  and  of  string 

MOV 

DL,AL 

/store  char  in  DL 

MOV 

AX, 092 Oh 

/write  1  space  to 

PUSH 

SI 

/ save  SI  register 

IMT 

lOh 

/set  color  attribute 

MOV 

AH, OKh 

/ func.no. teletype  mode 

MOV 

AL,DL 

/get  char  for  DL 

IMT 

lOh 

/char  to  the  console 

POP 

SI 

/restore  SI  register. 

XMC 

SI 

/point  to  next  char 

JMP 

SHORT  CSTR1 

/ get  next  character. 

t 

XMC 

SI 

/SI  points  to  next 

POP 

DX 

/instruction  in  code. 

POP 

CX 

/restore  registers. 

POP 

BX 

POP 

AX 

PU8H 

81 

/store  the  CS  pointer. 

RMT 

/restore  CS  register. 

CSTR_OUT 

-Clear 

a  Window 

Input 

•  AX  a  upper left  corner  row/ col 

row  0-24 

BX  m  lower  right  corner  row/col  col  0-79 
[color]  ■  current  attribute  from  date  section 

page  0  assumed. 

Output  a  abort  if  row  or  column  are  out  of  bounds. 

PROC  CLRAR_WIHDOW 

PUSH  AX  /save  registers 
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MINI 


KNDP 


PROC 


PUSH 

BX 

PUSH 

cx 

PUSH 

OK 

CMP 

BH,AH 

lis  starting  row>ending? 

JC 

MINI 

fsxit  if  yas. 

CMP 

BL>AL 

» is  starting  col>anding? 

JC 

MINI 

;axit  if  yas. 

CMP 

BH.25 

>is  row  out  of  bounds? 

JMC 

MINI 

;axit  if  yas. 

CMP 

BL,80 

lis  col  out  of  bounds? 

JMC 

MINI 

;axit  if  yas. 

MOV 

CX,  AX 

; starting  row/ col  to  CX 

MOV 

DX/BX 

j ending  row/col  to  DX 

MOV 

AX, 0600b 

; window  function  no 

MOV 

BH,  [Color] 

;gat  active  color 

XHT 

10b 

; claar  tha  window 

POP 

OX 

;rastora  ragistars 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

CLKARMINDON 

- Draw  * 

17  lina  80  column  display  box  for  tha  Rastaurant  program. 

It  can 

also  ba  usad  to  claar  tha 

display  scraan  and  titla  acraan. 

Input  ■  Nona 

Output 

m  Nona 

Calls 

CSTR  OUT  procadura 

DISPLAY  BOX 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AL, [Bordar] 

; change  color  attribute 

MOV 

[Color] , AL 

j f or  scran  output. 

MOV 

AX, 0400h 

; row  4,  column  0 

CALL 

OOTOYX 

;sat  cursor  position 

CALL 

CSTR  OUT 

; draw  box 

db 

201,  78  DUP  (205), 187 

db 

186,  78  DUP  ('  ' ) ,186 

db 

186,  78  DUP  ('  ') ,186 

db 

186,  78  DUP  ('  ') ,186 

db 

186,  78  DUP  ('  ') ,186 

db 

186,  78  DUP  ('  ' ) ,186 

db 

186,  78  DUP  ('  ' ) , 186 

db 

186,  78  DOT  ('  ') ,186 

db 

186,  78  DOT  ('  ' ) , 186 

db 

186,  78  DOT  ('  ' ) , 186 

db 

186,  78  DOT  ('  ' ) , 186 

db 

186,  78  DOT  {'  ' ) , 186 

db 

186,  78  DOT  ('  ' ) , 186 

db 

186,  78  DOT  ('  ' ) , 186 

db 

186,  78  DOT  ('  ') ,186 

db 

186,  78  DOT  ('  ') ,186 

db 

200,  78  DIP  (205) ,188,0 

MOV 

AL,  [Normal] 

MOV 

[Color] ,AL 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 
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BMDP 


DISPLAY  BOX 


Display  an  arror  sassage  on  the  screen  in  row  5  column  3,  Normal  colors 
Input  a  AX  pointer  to  ASCIIZ  string  in  Data  segment 


Output 

a  Carry  Plag  set 

Notet 

a 

1 

t 

a 

a 

5 

n 

o 

screen  and  wait  for  key  to  be  pressed. 

RRROR  MRSSAOB 

PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

MOV 

CL,  [Color] 

/save  assigned  color 

MOV 

AL, [Normal] 

/set  color  to  normal 

MOV 

[Color] ,  AL 

/for  string  output 

MOV 

AX, 0403h 

/ point  row  4,  col  3 

CALL 

GOTOYX 

/position  cursor 

MOV 

AX,  BX 

/load  string  pointer 

CALL 

DSTR_OUT 

/display  error  message 

MOV 

[Color] , CL 

/restore  assigned  color 

CALL 

HIDE  COR 

/hide  the  cursor 

CALL 

OBT  CHAR 

STC 

/carry  flag  a  error 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RNT 

KNDP  HRRORMHSSAQB 

/ 

/  Play  a  series  o£  notes  using  the  8253  timer  chip  to  produce  sound. 

/  Input  AX  ■  pointer  to  16  bit  data  string  containing 

;  frequency  and  duration  for  each  pitch. 

;  data  string  must  end  with  a  Hex  0 

/  Output  None 

/ 

PRO C  SOUND 


POSH 

AX 

/save  registers 

PUSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

BP 

MOV 

SI, AX 

/place  data  ptr  in  SI 

IN 

AL, 61h 

/get  status  port  B 

OR 

AL,  3 

/enable  speaker  and 

OUT 

61h, AL 

/timer  channel  2. 

MOV 

AL, 0B6h 

; initialise  channel  2 

OUT 

43h,AL 

/for  mode  3 

MOV 

DX, [SI] 

/load  frequency 

CMP 

DX,  0 

/is  it  the  end  of  str? 

JZ 

S0O3 

/if  yes  exit  else 

INC 

SI 

/advance  ptr  to 

INC 

SI 

/point  to  the  duration 

MOV 

AL,DL 

/low  lsb  of  frequency 

OUT 

42h, AL 

/send  to  latch2  port 

MOV 

AL,DH 

/low  msb  of  frequency 

OUT 

42h, AL 

/send  to  latch2  port 

MOV 

AH,  0 

/ int  function  number 

INT 

lAh 

/ get  BIOS  timer  count 

MOV 

BX,DX 

/move  lsword  to  BX 

ADD 

BX, [SI] 

/add  duration  to  BX 

INC 

SI 

/advance  ptr  to 
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■  •«  kt  .1  _ 

XMC 

SI 

tpoint  to  next 

frtqutney. 
sat»<  TUT 

lAb 

;get  BIOS  timer  count 

CUP 

DX.BX 

ils  count  >  duration? 

JC 

8002 

; if  not  check  again  else 

•IMP 

SHORT  SOUl 

;jump  to  get  next  freq. 

8003: 

IK 

AL/ 61h 

;get  byte  from  port  B 

AMD 

AL,  OF Ch 

j  turn  off  speaker  bits 

OOT 

61b, AL 

{replace  byte  in  port  B 

MOV 

DX, 1282 

/default  setting 

MOV 

AL,DL 

{get  lsb  of  count 

OOT 

42b, AL 

{send  to  port  42b 

MOV 

AL,DH 

{get  msb  of  count 

OOT 

42b, AL 

{send  to  port  42h 

POP 

BP 

POP 

DX 

{restore  registers 

POP 

ex 

POP 

BX 

POP 

AX 

RBT 

ENDP 

SOUND 

> 

{ 

Fore* 

tbe  numlock  key  ON  by  turning  on  bit  S 

in  the  BI08  data  area 

PRO C 

NOM  LOCK  OK 

POSH 

AX 

POSH 

DS 

XOR 

AX,  AX 

MOV 

DS,  AX 

MOV 

AL,20b 

MOV 

SI, 417h 

OR 

[SIl , AL 

POP 

DS 

POP 

AX 

RKT 

KNDP 

{ 

NUHLOCKON 

1 

1 - 

--Clear  Display  Massage. 

{ 

Input 

mi  None 

1 

Output  ■  None 

} 

PROC 

CLEAR 

MESSAGE 

POSH 

AX 

{save  registers 

POSH 

BX 

POSH 

ex 

POSH 

DX 

MOV 

AL, [Menu] 

{Menu  color 

MOV 

[Color] , AL 

{set  color 

MOV 

AX, 0206h 

{row  3 {  col  8 

CALL 

GOTOYX 

{position  cursor 

CALL 

CSTR  OOT 

db 

73  DOP(20b) ,0 

MOV 

AL, [Normal] 

{normal  color 

MOV 

[Color] ,AL 

{■at  color 

CALL 

HIDE  COR 

POP 

DX 

{restore  registers 

POP 

ex 

POP 

BX 

POP 

AX 

RKT 

KNDP 

l 

CLEAR 

MESSAGE 

A- 83 

; 

> 

; - 

Create 

a  Disk  Pile  using  the  file  Handle  method. 

> 

Input  ■ 

AX  -  ptr  ASCI I I  name  of  the 

file. 

i 

shared/read/write  access. 

t 

Output 

■  Carry  flag  set  if  a  creating 

error  or 

/ 

Pile  Handel  in  BX  and  a  file 

o 

Ml 

O 

S 

«t 

e 

a 

a 

! 

1 

;  **** 

Caution:  This  procedure  will  erase  and  existing 

file.  ******** 

i 

if  the  two  files  have  the  am 

ae  name. 

1 

PROC 

CRXATX 

MOV 

DX,  AX 

;ptr  to  file  mm  string 

MOV 

AH.3Ch 

;create  file  with  handle 

XOR 

cx,cx 

/normal  attributes 

I  NT 

21h 

{try  to  open  file. 

JC 

CTl 

{carry  ■  opening  error 

MOV 

BX,  AX 

{file  handle  in  BX 

CLC 

{dear  carry  flag 

JMP 

SHORT  CT4 

{return  to  calling  prg. 

CTl  t 

CMP 

AX, OCh 

{is  access  code  wrong? 

JNZ 

CT2 

{if  not  skip. 

XOR 

AX,  AX 

{ xero  AX  if  wrong  code 

CT2 : 

CMP 

AX, 6 

{is  error  code  >  5  ? 

JC 

CT3 

{if  not  skip. 

MOV 

AX,  6 

{end  of  error  table 

CT3 : 

MOV 

[KrrCode] , AL 

{ save  error  code 

SEX: 

AX,  1 

{multi  err  code  by  2 

MOV 

BX, Offset  OpenXrr 

{open  error  table  base 

ADD 

BX,AX 

{add  err.  offset  to  base 

MOV 

AX, 0107h 

{row  2,  column  8 

CALL 

GOTOYX 

{position  cursor 

MOV 

CL, [Color] 

{save  color  attribute 

MOV 

AL, [Warning] 

{get  new  attribute 

MOV 

[Color] , AL 

{assign  attri  to  color 

CALL 

CSTR  OUT 

{output  this  line  to 

db 

'  Error 1  creating  ' , 0 

{the  screen. 

MOV 

AX,DX 

{Pile  name  pointer. 

CALL 

DSTR  OUT 

{output  file  name. 

MOV 

AX, [BX] 

{ptr  msg  string  to  AX 

CALL 

DSTR  OUT 

{display  type  of  error 

MOV 

[Color] , CL 

{restore  original  attri 

STC 

{set  carry  flag 

CT4 : 

RKT 

KNDP 

CRXATZ 

; 

i — 

Delete 

a  Disk  Pile. 

; 

Input  - 

AX  ■  ptr  ASCIIZ  name  of  the 

file. 

} 

shared/read/write  access. 

t 

Output 

-  Carry  flag  set  if  a  delete  error. 

} 

;  *#«* 

Caution 

:  This  procedure  will  erase  and  existing 

file.  ******** 

PROC 

DXLKTB 

PILS 

MOV 

DX,  AX 

{ptr  to  file  name  string 

MOV 

AH,41h 

{delete  file  function  no 

INT 

21h 

{try  to  open  file. 

JC 

DTI 

{carry  ■  delete  error 

CLC 

{clear  carry  flag 

JMP 

SHORT  DT4 

{return  to  calling  prg. 

DTI: 

CMP 

AX, OCh 

{is  access  code  wrong? 

JNZ 

DT2 

{if  not  skip. 
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DT2< 


XOR 


DT3 1 


DT4: 

KNDP 


AX,  AX 
CMP  AX,  6 

JC  DT3 

MOV  AX, 5 

MOV  [SrrCode] ,AL 

SBL  AX, 1 

MOV  BX, Offset  OpenBrr 

ADD  BX, AX 

MOV  AX, 0107h 

CALL  GOTOYX 

MOV  CL, [Color] 

MOV  AL, [Warning] 

MOV  [Color] ,AL 

CALL  CSTROUT 

db  '  Error I  delating  ' ,0 

MOV  AX, DX 

CALL  DSTR_OUT 

MOV  AX, [BX] 

CALL  DSTROtJT 

MOV  [Color] , CL 

STC 
RET 

DELETE  FILE 


fiero  AX  If  wrong  coda 
;ia  error  coda  >  5  1 
tit  not  skip. 

;end  of  error  table 
t save  error  code 
i suit!  err  code  by  2 
I  open  error  table  base 
; add  err.  offset  to  base 
>  row  2,  column  8 
{position  cursor 
{save  color  attribute 
{get  new  attribute 
{assign  attri  to  color 
{output  this  line  to 
{the  screen. 

{File  name  pointer, 
{output  file  name. 

{ptr  msg  string  to  AX 
{display  type  of  error 
{restore  original  attri 
{set  carry  flag 


Send  a  16  bit  unsigned  binary  number  to  the  screen  in  decimal  form 
in  BOA  and  VGA  Graphics  Mode  lOh  page  0 
Input  ■  AX  ■  binary  number  CX  ■  total  number  of  digits 

the  number  is  padded  with  leading  zeros  until  CX  digits  . 
[color]  ■  current  attribute  from  data  section 
Output  a  None 

Video  mode:  lOh  640  x  350  16  colors  row  a  25  Col  a  80 


Notet  the  calling  procedure  must  make  sure  that  the  number  is  CX  is 

large  enough  to  display  all  the  digits  of  the  number  in  AX.  This 
procedure  can  be  used  when  leading  zeros  are  needed. 


FROC 

BIN  DIG 

OUT  NEAR 

PUSH- 

AX 

{save  dividend 

PUSH 

BX 

,  PUSH 

CX 

{save  CX  register 

PUSH 

DX 

{save  remainder 

SUB 

DX,DX 

{zero  DX  register 

MOV 

BX, OAh 

{divisor  is  10 

DIV 

BX 

{AX/10 {  answer  in  AX 

DEC 

CX 

{remainder  digit  in  DL. 

JZ 

•BIN 

{if  yes  stop  recursion 

CALL 

BIN  DIG  OUT 

{contine  recursive  call 

•BIN: 

CALL 

DIGIT  OUT 

{display  digit  in  DL. 

POP 

DX 

{previous  digit  to  DL. 

POP 

CX 

{restore  CX  register 

POP 

BX 

POP 

AX 

{restore  AX  register 

RET 

{NOTE: 

this  RET  will  point  to  MBIN:  to  display 

KNDP  BINDIQOUT  {each  digit  of  the  recursions  stored  in  DL  register. 

{After  all  digits  are  displayed  it  will  return  to 
{the  calling  program. 


Ask  a  yes  or  no  question. 
Input  a  None 

Output  a  Carry  Flag  *  TBS 
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{ 


broc 

EXIT  YN 

BOSH 

AX 

; save  registers 

BOSH 

BX 

e 

BOSH 

cx 

PUSH 

DX 

CALL 

CLEAR 

MOV 

AL, [Warning] 

> warning  color 

MOV 

[Color] , AL 

;set  color 

MOV 

AX, 020Bh 

; row  3/Col  12 

CALL 

GOTOYX 

{set  cursor 

CALL 

CSTR  OUT 

; display  warning 

db 

'  Exit  to  DOS  ?  [Y]/N  ',0 

MOV 

AL, [Normal] 

i normal  color 

MOV 

[Color] , AL 

; set  color 

■XI: 

CALL 

HIDE  COR 

CALL 

SET  CHAR 

AND 

AL,5Ph 

{turn  off  bits  6  &  8 

CMP 

AL, 'N' 

; is  it  No? 

JZ 

EX4 

}if  yes  exit 

C MB 

AL, ODh 

{is  it  <Hnter>? 

JNZ 

KX2 

lif  not  continue 

STC 

;set  carry  flag 

0KB 

SHORT  BX5 

;exit 

EX2: 

CMP 

AL, '  Y' 

{is  it  Yes? 

OMZ 

KX1 

{if  not  get  another 

STC 

{set  carry  flag 

JMP 

SHORT  EX5 

{exit 

EX4: 

CLC 

{dear  carry  flag 

BX5: 

POP 

DX 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

ENDP 

EXIT  YN 

; - Clear  tha  screen  and  place  the  cursor  in  position  0,0 

]  Input  ■  Hone  Color  -  current  [color]  attribute  from  data  section 

;  Output  a  None  Border  color  is  also  set  the  same  as  the  screen. 

;  Notes:  All  registers  saved.  25  rows  and  80  columns  page  0  assumed. 

; 

PROC  CLEAR  SCREEN 


POSH 

AX 

{save  registers 

POSH 

BX 

POSH 

CX 

POSH 

DX 

MOV 

BH, [Color] 

{color  attribute 

MOV 

AX, 0700h 

{initialize  window  func 

SOB 

CX,CX 

{row/ col  a  0,0 

MOV 

DX, 184Ph 

{row/ col  a  24,79 

HIT 

lOh 

{clear  screen  window 

MOV 

BH, [Color] 

{color  attribute 

MOV 

CL, 4 

{shift  background  color 

SHR 

BH,  CL 

{to  the  lower  4  bytes. 

MOV 

AX, lOOlh 

{function  nusiber 

INT 

lOh 

{set  screen  border 

MOV 

AH,  2h 

{set  cursor  position 

MOV 

BH,  0 

{page  0,  row, col  to  DX 

MOV 

DX,CX 

{position  cursor  at  the 

INT 

lOh 

{the  top  left  cornor. 

POP 

DX 

{restore  registers 
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hm dp 


PROC 


SNDP 


PROC 


POP  cx 
POP  BX 
POP  XX 
RRT 

CLXAR  SCRXXN 


- Draw  a  4  lina  80  coluan  mqu  box.  Starting  at  row  0-21.  coluan  0. 

Input  ■  AX  ■  Row, Coluans  cursor  position.  Coluan  Bust  ba  0 
Output  *  Nona 

Calls  CSTROOT  procdauras 
MENU  BOX 


PUSH 

AX 

POSH 

BX 

POSH 

ex 

PUSH 

DX 

XOR 

AL,  AL 

;sat  coluan  to  0 

CALL 

OOTOYX 

;sat  cursor  position 

MOV 

DL, [Color] 

; sava  original  Color 

MOV 

AL,  [Menu] 

7 clangs  color  attribute 

MOV 

[Color] , AL 

;f or  scran  output. 

CALL 

CSTR  OUT 

fdraw  aanu  box 

db 

201,  78  DUP 

(205), 187 

;all  except  last  byte. 

db 

186,  78  DUP 

('  ' ) , 186 

j CSTRUOUT  will  causa 

db 

186,  78  DUP 

('  ' ) , 186 

; the  screen  to  scroll 

db 

200,  78  DUP 

(205), 0 

; in  row  25,  col  80. 

MOV 

BL.AL 

7 color  to  BL 

MOV 

AH, 09h 

7 write  char  funct  no. 

MOV 

AL, 188 

7  last  character  of  box 

MOV 

BH,  0 

7 page  0  assumed 

MOV 

CX,1 

7 number  of  bytes 

INT 

10b 

7 write  last  byte 

MOV 

[Color] ,DL 

7 restore  original  Color 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RRT 

MXNU  BOX 


Draw  a  4  lina  80  coluan  aanu  box.  Starting  at  row  0-21.  coluan  0. 
Input  ■  AZ  «  Row, Columns  cursor  position.  Coluan  Bust  ba  0 
Output  ■  Nona 


Calls  CSTROOT  procdauras 
CLXAR  BOX 
PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  DL, [Color] 

MOV  AL, [Normal] 

MOV  [Color] ,AL 

XOR  AL, AL 

MOV  BL.79 

MOV  BH, AH 

ADD  BH.4 

rar.r.  CLRARWINDOW 

MOV  [Color] ,DL 

POP  DX 

POP  CX 

POP  BX 


7  save  original  Color 
; clangs  color  attribute 
;for  scran  output. 

7  set  coluan  to  0 


; restore  original  Color 
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POP 


AX 


ENDP 

I 
/ 

I 
/ 

I 
> 

I 
Z 
i 

PROC 


CLIAR  BOX 


Display  the  DOS  extended  error  miiiji  return 

by  celling  Int  21h  function  59h  -  Set  extended  error  inforaetion. 
error  code  is  less  then  36  the  error  string  is  presented.  Zf  the 
nuaber  is  36  or  larger  the  nuaber  is  print  to  the  screen. 

Input  ■  None  data  bytes  [BrrCode] , [Color] ,  and  [Noraal]  ass 
Output  ■  Brror  nuaber  in  [BrrCode] 

DISPLAY  BRROR 


If  the 
error 


BRR01: 


RNDP 


BrrStr 


PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

PUSH 

BS 

MOV 

[BrrCode] , AL 

/save  AL  register 

CALL 

CLEARMESSAGE 

MOV 

CH, [Warning] 

{warning  color 

MOV 

CL,  [Color] 

;save  original  color 

MOV 

[Color] , CH 

/set  color 

MOV 

AX,0207h 

/row  3 /Col  8 

CALL 

GOTOYX 

/set  cursor 

request 

extended  error  inforaetion 

XOR 

BX,BX 

/get  extended  error 

MOV 

AX, 5900h 

/ inforaetion  f roa 

INT 

21h 

/DOS  ays tea 

XOR 

AH,  AH 

/zero  hi  byte 

CMP 

AL,  0 

/was  an  error  found? 

JZ 

BRROl 

/if  NO  display  aessage 

CMP 

AL,  37 

/is  code  <  37  ? 

JC 

ERROl 

/if  YES  display  aess 

CALL 

CSTR_OUT 

db 

'  DOS  Brror  Nuaber :  ' , 0 

CALL 

BIN  OUT 

MOV 

AX, 37 

/37  ■  unknown  DOS  error 

SHL 

AX,  1 

/error  number  x  2 

MOV 

BX, Offset  BrrStr 

/pointer  to  table  base 

ADD 

BX,  AX 

/BX  ptr  to  error  ptr. 

CALL 

CSTR  OUT 

db 

'  DOS  Error:  ',0 

MOV 

AX, [BX] 

/load  ptr  to  error  str. 

CALL 

DSTR_OUT 

/send  string  to  screen 

CALL 

CSTR_OUT 

db 

'  Press  Any  Key .  ' , 0 

MOV 

[Color] , CL 

/restore  original  color 

CALL 

HIDB  CUR 

CALL 

ERR  SOUND 

CALL 

GET  CHAR 

POP 

BS 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

DISPLAY 

BRROR 

.DATA 

dw 

dw 

dw 


SrrOO , BrrOl , Brr02 , Brr03 , Brr04 , Brr05 , Brr06 , Brr07 , Brr08 , 8rr09 
BrrlO , Err 11 , Errl2 , Err 13 , Err 14 , Errl5 , Err 16 , Err 17 , Err 18 , Err 19 
Br r 2  0 , Err 2 1 , 8r r 2  2 , Err 2 3 , Er r 2 4 , Hr r 2  5 , Brr 2  6 , Br r 2 7 , Br r 2  8 , Err 2  9 
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’f  • 

dw 

Brr30 , BrrSl, Brr32 , Brr33 , Brr34 , Brr35 , Brr36 , Err 3 7 

SrrOO 

db 

'no  error  found' , 0 

SrrOl 

db 

' function  number  invalid' , 0 

Xrr02 

db 

'file  not  found', 0 

Srr03 

db 

'path  not  found', 0 

Srr04 

db 

'to  many  open  files', 0 

Srr05 

db 

' access  denied' , 0 

Brr06 

db 

' handle  invalid' , 0 

Srr07 

db 

'memory  control  blocks  destroyed ',0 

Srr08 

db 

'insufficient  memory ',0 

Brr09 

db 

'memory  block  address  invalid' , 0 

XrrlO 

db 

' environment  invalid' , 0 

Srrll 

db 

' format  invalid' , 0 

Irrl2 

db 

' access  coda  invalid' , 0 

Srrl3 

db 

'data  invalid' , 0 

Brrl4 

db 

'unkown  unit',0 

Srrl5 

db 

'disk  drive  invalid', 0 

BrrlS 

db 

'attempted  to  remove  current  directory ',0 

Srrl7 

db 

'not  same  device ',0 

BrrlS 

db 

'no  more  files',0 

Srrl9 

db 

'disk  write-protsetad' ,0 

Brr20 

db 

'unkown  unit',0 

Brr21 

db 

'drive  not  ready ',0 

Brr22 

db 

' unkown  command' , 0 

Brr23 

db 

'data  error  (crc)',0 

Brr24 

db 

'bad  re-fuest  structure  length', 0 

Err  2  5 

db 

'seek  error',0 

Brr26 

db 

'unkown  media  typa',0 

Brr27 

db 

' sector  not  found' , 0 

Brr28 

db 

'printer  out  of  paper ',0 

Brr29 

db 

'write  fault ',0 

Brr30 

db 

'read  fault',0 

Brr31 

db 

' general  failure ' , 0 

Brr32 

db 

' sharing  violation' , 0 

Brr33 

db 

'lock  violation' , 0 

Brr34 

db 

'disk  change  invalid', 0 

Brr35 

db 

' FCB  unavailable ' , 0 

Brr36 

db 

'sharing  buffer  exceeded ',0 

Brr37 

db 

'check  DOS  documentation' , 0 

.CODS 

; 

t 

;  XNT24h  Substitute  critical -error  handler  to  tell  DOS  to  Retry  or  Fail  errors 
and 

;  return  to  the  calling  program.  This  subroutine  will  redirect  DOS's 
} attempt  back  to  the  calling  program. 

/  Mote  :  The  Abort  is  converted  to  what  DOS  calls  a  Fail  and  will  return 
;  control  back  to  the  calling  program  with  an  error  code  in  AL. 

;  INT23h  Ignore  the  control  C  break  command  from  the  keyboatd. 

> 

FROC  INTBRRUPTHANDLBR 
I - install  critical-error  handler 


POSH 

MOV 

MOV 

MOV 

MOV 

XKT 

I - install 


DS 

DX, Sag  XMT24 
DS,DX 

DX, Offset  XNT24 

AX,2524h 

21h 

AC  error  handler  (ignore  AC  breaks) 


MOV  DX, Sag  XNT23 

MOV  DS,DX 

i 
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J  — 

FROC 


MOV  DX,0££set  ZHT23 
MOV  AX,2523h 

ZMT  21h 

POP  DS 

KIT 

- substitute  interrupt  23h 

IMT23  PAR 

XOR  AX, AX 

ZRIT 
SMDP  ZMT23 


PROC 


-aubatituta  interrupt  23h 


CRTXs 


CRT2 1 


IMSP 


ZMT24 

PAR 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

SZ 

PUSH 

DZ 

PUSH 

BP 

PUSH 

OS 

PUSH 

IS 

MOV 

OX,  AX 

;• ava  in  DX 

MOV 

AX,«DATA 

/get  data  segment 

MOV 

OS, AX 

; aaalgn  data  segment 

MOV 

CL, [Color] 

;gat  currant  attrlbuta 

MOV 

AL, [Warning] 

;gat  warning  color 

MOV 

[Color] , AL 

> aaalgn  to  color 

MOV 

AX, 0220h 

i row  4  /  col  0 

CALL 

QOTOYX 

/position  cursor 

CALL 

CSTR_OUT 

/send  string  to  scraan 

db 

7,7,'  Error s 

Praaa  R  to  Ratry  or  A  to  Abort .  ' , 0 

CALL 

HZDX  CUR 

MOV 

AH,  6 

;  Doa  function  number 

MOV 

DL, OFPh 

;gat  char  input  from 

ZNT 

21h 

;tha  keyboard. 

JZ 

CRT1 

;i£  not  char  try  again 

AMD 

AL, SPh 

;maka  capital  latter 

MOV 

AH,  AL 

; input  to  AH 

MOV 

AL,  3 

/  3  ■  fail  tha  DOS  call 

CMP 

AH, 'A* 

;is  it  an  Abort  ? 

JZ 

CRT2 

/ ax it  if  an  Abort 

MOV 

AL,  1 

/ 1  -  ratry  tha  DOS  call 

CMP 

AH, 'R' 

;is  it  a  Ratry  ? 

JMZ 

CRT1 

/ if  not  gat  naw  char 

MOV 

DL,  AL 

;aava  return  coda 

MOV 

AL, [Manu] 

;get  menu  color 

MOV 

[Color] ,  AL 

/assign  to  color 

MOV 

AX, 0220h 

/row  4  /  col  0 

CALL 

QOTOYX 

/position  cursor 

CALL 

CSTR_OOT 

/sand  string  to  screen 

db 

P 

'  ,0 

MOV 

[Color] , CL 

/assign  original  attri 

MOV 

AX,DX 

/restore  DOS  return  coda 

POP 

IS 

POP 

OS 

POP 

BP 

POP 

DZ 

POP 

SZ 

POP 

DX 

POP 

CX 

POP 

BX 

ZRIT 

ZHT21 
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EHDP  INTXRRUPTHANDLER 

I 

; 

i - Tha  Fausa  for  cat  for  1/2  aaeond. 


1 

Input  ■ 

Nona 

1 

Output 

■  Nona 

FROC 

PAUSE 

PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

XOR 

AX, AX 

; Gat  ticks  function  no. 

HIT 

lAh 

; got  Dos  timar  ticks 

MOV 

BX,DX 

;low  byta  ticks  to  BX 

ADD 

BX,  9 

} 9  -  1/2  sacond 

PA1: 

XOR 

AX,  AX 

; Gat  ticks  function  no. 

HIT 

lAh 

;gat  Dos  timar  ticks 

CMP 

BX,DX 

;is  tima  run  out? 

JNC 

PA1 

;if  not  loop  again 

CLC 

;cloar  carry  flag 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RIT 

KNDP 

) 

PAUSE 

; 

- -Op an  tha 

configuration  fila  for  usa  by  tha  FaadBack  program 

; 

Input  a 

nama  of  fila  in  [FilaNa] 

; 

Output  a 

Carry  flag  sat  ■  critical 

DOS  arror. 

PROC 

OPEN  CONFIG 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

BS 

; - 

- -looata  and  of  anarch  string 

MOV 

AX.DS 

MOV 

IS, AX 

MOV 

CX,  68 

;max  langth  of  string 

MOV 

BX, Off sat  Saarch 

;ptr  to  first  byta 

MOV 

AL,  0 

; looking  for  RndOfStr 

RSI: 

INC 

BX 

;ptr  to  naxt  byta 

CMP 

[BX] ,AL 

; if  this  it  ? 

JZ 

KK2 

; continual  I  found  it. 

LOOP 

111 

;if  NO  look  at  naxt  byta 

STC 

JMF 

SHORT  KB9 

; if  no  match  axit 

; - 

--backup  until  finding  tha  last  \ 

KS2 : 

MOV 

CX,  12 

MOV 

AL, '  V 

DXC 

BX 

CMP 

[BX] , AL 

JZ 

KE3 

LOOP 

KE2 

STC 

JMP 

SHORT  RE 9 

jif  no  match  axit 

}---- 

--copy  fila  nama  to  and  of  path 

KB3 : 

INC 

BX 

MOV 

DI,BX 

;dostination  ptr 

MOV 

SI, Off sat  FilaNa 

;sourco  ptr 

A-91 


/ 


t 


KB  8 : 
KB  9 : 


BNDP 


MOV  CX, 13 

CLD 

UP  M0V8B 

open  fils  and  save  £ila  handle 
MOV  AX, Offset  Search 
CALL  OPBN 

JC  KB  9 

MOV  [CFGHd], BX 

•at  disk  drive  of  open  file 
XOR  AX, AX 

MOV  [FileDr] , AL 

MOV  BX, Offset  Search 
MOV  AX, [BX] 

CMP  AH, ' : ' 

JNZ  KB  8 

SOB  AL, 64 

JC  U8 

MOV  [FileDr] , AL 

CLC 

POP  BS 

POP  DX 

POP  CX 

POP  BX 

HR 

OPEN  CONFIG 


; number  of  bytes 
; auto  inc  SI  6  DI 
jeopy  all  13  bytes 

/ptr  to  path  ♦  file  name 
;open  key  file 
>goto  main  menu  on  error 
;save  data.fil  handle 

/zero  to  [DiskDr]  ■ 
/default  drive 
;ptr  to  path  +  filename 
/ get  first  two  bytes 
;is  a  drive  given? 

/if  NO  will  use  default 
/convert  to  hex  value 
/if  error  continue 
/save  drive  of  file 
/clear  carry  flag 


Read  the  configuration  file  into  memory.  The  data  strings  are 
stored  on  the  heap  and  a  ptr  table  to  the  entries  is  in  the  data 
section.  In  the  table  the  first  wo.d  is  the  type  of  data  and  the 
second  word  is  a  ptr  to  the  offset  in  the  heap. 


Input  «  none. 

Output  ■  carry  flag  if  error  in  the  file. 
BX  ■  FulBuf  pointer 
BP  ■  heap  pointer 
DX  -  end  of  CFGTbl 


PROC  RRADCONFIG 
PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  AX,DS 

MOV  BS, AX 

XOR  AX, AX 

MOV  [BOF] , AL 

MOV  BP, AX 

MOV  BX, Offset  CFGTbl 

MOV  DX, Offset  CFGTbl  +  636 

MOV  AX, [CFGHd] 

CALL  GOTOTOP 

JNC  FZRO 

JMP  FXR14 

/ - locate  a  data  line  in  the  config  file. 

FZRO:  CALL  PRINT_WAIT_MBSS 

FZR1 :  MOV  AX, [CFGHd] 

CALL  RBADLINB 

JNC  FZR2 

MOV  AL, OFFh 

MOV  [BOF] , AL 

FZR2 :  CALL  RBMOVB  SPACBS 


/save  registers 


/assign  BS  «  DS 


/set  BndOfFile  -  FALSE 
/ptr  to  bottom  heap 
/ptr  to  table 
/ptr  to  end  of  table 
/get  file  handle 
/file  ptr  to  BegOfFile 
/continue  if  No  error 
/exit  on  DOS  error 

/inform  user  of  search 
/get  file  handle 
/ 1  line  from  data  file 
/not  BndOfFile 
/mark  BndOfFile  true 
/<>  0  ■  True 
/remove  leading  spaces 
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{ - 

-is  it 

snd  8F1  data  lins? 

MOV 

CX,  3 

;loop  counter 

MOV 

DI, Off sat  SFITyp  +1 

;ptr  to  SF1 

MOV 

SI, Off sat  FilBuf 

;ptr  to  data  file  lina 

CLD 

;auto  inc  DI  and  SI 

RRPZ 

CMPSB 

;  are  the  bytes  ■  ? 

JNZ 

FZR3 

;if  NO  goto  next  test 

MOV 

WORD  PTR  [BX] , 5 

j identify  as  SF1 

JMP 

SHORT  FZR7 

; store  in  memory 

; - 

-is  it 

and  SF2  data  lina? 

FZR3  : 

MOV 

CX,  3 

;loop  counter 

MOV 

DI, Off sat  SF2Typ  +1 

;ptr  to  SF2 

MOV 

SI, Off sat  FilBuf 

;ptr  to  data  fila  lina 

CUD 

{auto  inc  DI  and  SI 

RRPZ 

CMPSB 

;ara  the  bytes  «  ? 

JNZ 

FZR4 

;if  NO  goto  next  tast 

MOV 

WORD  PTR  [BX] , 4 

{identify  as  SF2 

JMF 

SHORT  FZR7 

{Store  in  memory 

; - 

-is  it 

and  PRR  data  lina? 

FZR4 : 

MOV 

CX,  3 

{loop  counter 

MOV 

DI, Off sat  PRRTyp  +1 

{ptr  to  PRR 

MOV 

SI, Off sat  FilBuf 

{ptr  to  data  file  line 

CLD 

{auto  inc  DI  and  SI 

RRPZ 

CMPSB 

{are  the  bytes  -  ? 

JNZ 

FZR5 

{if  NO  goto  next  test 

MOV 

WORD  PTR  [BX] , 3 

{identify  as  PRR 

JMP 

SHORT  FZR7 

{store  in  memory 

FZR5 : 

MOV 

CX,  3 

{loop  counter 

MOV 

DI, Off sat  SUPTyp  +1 

{ptr  to  SUP 

MOV 

SI, Off set  FilBuf 

{ptr  to  data  file  line 

CLD 

{auto  inc  DI  and  SI 

RRPZ 

CMPSB 

{are  the  bytes  ■  ? 

JNZ 

FZR6 

{if  NO  goto  next  teat 

MOV 

WORD  PTR  [BX] , 2 

{identify  as  SUP 

JMP 

SHORT  FZR7 

{Store  in  memory 

, - 

-is  it 

a 

SUB  data  lina? 

FZR6 : 

MOV 

CX,  3 

{loop  counter 

MOV 

DI, Off sat  SUBTyp  +1 

{ptr  to  SUB 

MOV 

SI, Off sat  FilBuf 

{ptr  to  data  file  line 

CLD 

{auto  inc  DI  and  SI 

RRPZ 

CMPSB 

{are  the  bytes  -  ? 

JNZ 

FZR8 

{if  NO  goto  next  test 

MOV 

WORD  PTR  [BX] , 1 

{identify  as  SUB 

, - 

-stors 

a 

string  of  word  integers 

FZR7 : 

INC 

BX 

{point  to  the  next 

INC 

BX 

{word  in  table 

MOV 

[BX] ,BP 

{ptr  to  the  table 

INC 

BX 

{point  to  the  next 

INC 

BX 

{word  in  table 

CALL 

COPY  NUMBERS 

{copy  data  into  memory 

JMP 

SHORT  FXR11 

{read  the  next  line 

, - 

-is  it 

a 

group  title? 

FZR8 : 

MOV 

SI, Offset  FilBuf 

{ptr  to  data  file  line 

CMP 

BYTR  PTR  [SI] ,  ■{■ 

{is  this  a  group  title? 

JNZ 

FZR9 

{if  NO  goto  next  test 

MOV 

WORD  PTR  [BX] , 7 

{identify  group  title 

JMP 

SHORT  FXR10 

{copy  to  memory 

J - 

-is  it 

a 

factor  title? 

FZR9 : 

MOV 

SI, Offset  FilBuf 

{ptr  to  data  file  line 

CMP 

BYTR  PTR  [SI] ," [" 

{is  this  a  factor  title? 

JNZ 

FXR11 

{if  NO  goto  next  test 

MOV 

WORD  PTR  [BX] , 6 

{identify  group  title 
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/ - 

1 

■ 

it 

8 

• 

B 

i  asciis  string  in  ■ emery 

ratio  i 

INC 

BZ 

/point  to  the  next 

IRC 

BZ 

;word  in  table 

MOV 

[BZ] ,  BP 

;ptr  to  the  table 

INC 

BZ 

; point  to  the  next 

INC 

BZ 

>word  in  table 

CALL 

COPY  TO  HEAP 

/copy  data  into  memory 

; - 

-is  this 

the  last  line  ? 

ratiii 

XOR 

AL,AL 

/zero  AX  register 

CMP 

AL, [EOF] 

/is  EndOfFile  TRUE? 

JNZ 

FZR13 

/  not  zero  ■  EndOfFile 

2 - 

-la  this 

the  end  of  the  CFOTbl  ? 

CMP 

BX,DX 

/is  it  end  of  table? 

JNC 

FZR12 

/if  yes  display  error 

JMP 

FZR1 

/else  read  next  line 

FXR12: 

ZOR 

AX,  AX 

/O  m  to  many  factors 

CALL 

CFO  ERR 

/ to  many  CFG  items 

STC 

/set  error  flag 

JMP 

SHORT  FXR14 

/exit  on  error 

FXR13: 

MOV 

WORD  PTR  [BZ]  ,  8 

/mark  EndOf Table 

CALL 

CHECK  CFG 

/look  for  file  errors 

JC 

FZR14 

/exit  if  file  error 

CALL 

SET  DAT  VAR 

/set  DRecLn  &  RNKLn 

CALL 

SHOW  YN 

/show  config  Y/N? 

JNC 

FZR14 

/carry flag  *»  YES 

CALL 

DISPLAY  CFG 

/show  user  the  data 

CLC 

/dear  cf  ■  no  error 

FXR14: 

PUSHF 

/save  flag  register 

MOV 

AZ, [CFGHd] 

/get  file  handle 

CALL 

CLOSE 

/close  config  file 

JC 

FXR15 

/exit  on  DOS  error 

ZOR 

AX,  AX 

/zero  to  register 

MOV 

[CFGHd] , AX 

/mark  file  closed 

FXR15 : 

POPF 

/restore  flag  register 

POP 

DZ 

/restore  registers 

POP 

CZ 

POP 

BX 

POP 

AX 

RET 

UNDP 

» 

READCONPIG 

Z 

PROC 

SET  DAT 

VAR 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

J - 

-the  number  of  data  points  ■  number  of  answer 

files  in  config. 

ZOR 

CX,CX 

/zero  counter 

MOV 

SI,  Offset  CFOTbl  -  4 

zptr  to  table 

MOV 

AZ,  4 

/length  2  table  entries 

SDVls 

ADD 

SI, AX 

;ptr  to  next  type 

CMP 

WORD  PTR  [SI] , 8 

/is  it  BndOfTable? 

JZ 

SDV2 

/OKI  exit  loop  counter 

J - 

-Is  this 

an  answer  file  ? 

CMP 

WORD  PTR  [SI] , 6 

/is  it  an  answer  file? 

JNC 

SDV1 

/if  NO  continue  loop 

INC 

CX 

/count  ■  count  -t-  1 

JMP 

SHORT  SDV1 

/continue  loop 

2 - 

-DRecLn  ■ 

no  of  answer  files  +  20 

SDV2  s 

MOV 

BZ,  CX 

/save  number  of  points 

ADD 

CX,  20 

/add  ID  length 
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MOV 

[ORscLn] ,  CX 

;save  data  rec  length 

1 - 

-  RMXLn 

■  no  of  answer  files  *  7 

MOV 

AX,  BX 

/bar  count  to  AX 

MOV 

CL, 7 

/size  of  rank  record 

MUL 

CL 

MOV 

[RMXLn] , AX 

/save  size  of  rank  file 

CLC 

POP 

DX 

POP 

ex 

POP 

BX 

POP 

AX 

RST 

8NDP 

SHT_DAT_VAR 

» 

;  Copy  number 

string  into  memory  from  the  configuration  file. 

/ 

Input 

■  BP  ptr  to  heap  storage  area 

/ 

line  of  text  in  [FilBuf] 

/ 

Output 

m  byte  integers  stored  in  heap 

i 

unsigned  integer  from  1  -  200 

i 

FF  m  number  larger  than  200 

/ 

hex  0  marks  the  and  of  the  integer 

string 

PROC 

COPY  NOMBHRS 

POSH 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

DI 

XOR 

AX,  AX 

/zero  number  holder 

MOV 

DI,  10 

/multipler 

MOV 

BX,  Offset  FilBuf  +2 

/ptr  past  file  name 

HOMO: 

XOR 

AX,  AX 

/zero  the  value 

NOM1: 

INC 

BX 

/ptr  to  next  char 

CMP 

BYTH  PTR  [BX] , Oh 

/is  it  endofline? 

JZ 

NOM6 

/if  yes  exit 

CMP 

BYTH  PTR  [BX] , '1' 

/is  it  lower  case  "1" 

JNZ 

NOM2 

/if  NO  goto  next  test 

MOV 

BYTB  PTR  [BX] , "1* 

/if  YKS  convert  to  a  1 

NOM2: 

CMP 

BYTH  PTR  [BX] , 'O' 

/is  it  upper  case  aO" 

JNZ 

NOM2A 

/if  NO  goto  next  test 

MOV 

BYTH  PTR  [BX] , ■ 0 ■ 

/if  YKS  convert  to  zero 

NUM2A: 

CMP 

BYTH  PTR  [BX] , ' ; ' 

/is  it  comment  marker? 

JZ 

N0M6 

;if  yes  exit 

CMP 

BYTH  PTR  [BX] , ■ t ■ 

/is  it  a  digit? 

JNC 

NOM4 

/if  no  gat  next  char 

CMP 

BYTH  PTR  [BX] , "0" 

/is  it  a  digit? 

JC 

NUM4 

/if  not  get  next  char 

; - 

-process 

the  digit 

NUM3  s 

MOL 

DI 

/multiply  by  10 

XOR 

DX,DX 

/zero  register 

MOV 

DL, [BX] 

/get  digit 

SOB 

DL, "0" 

/concert  to  hex 

ADD 

AX,DX 

/save  value  in  AX 

JMP 

SHORT  NOM1 

/ get  next  digit 

1 - 

-process 

the  number  if  any  and  continue 

NUM4: 

CMP 

AX,  0 

/is  number  ■  0  ? 

JZ 

MOM1 

/if  YHS  skip  it 

NUM5 : 

MOV 

[BP] , AL 

/store  value  in  memory 

INC 

BP 

JMP 

SHORT  NDM0 

/get  next  char 

1 - 

-process 

the  number  if  any  and  exit 

NUK6  s 

CMP 

AX,  0 

/is  number  ■  0  ? 
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JZ 

non 

;if  YB8  skip  it 

CMP 

AX# 201 

fis  it  largar  than  200? 

JC 

NUM7 

fif  NO  Stora  numbar 

MOV 

AL, OFPh 

;alsa  mark  overflow 

mnr7< 

MOV 

[BP] ,  AL 

; stora  valua  in  mamory 

nrc 

BP 

mjM8i 

ZOR 

AX,  AX 

MOV 

[BP] , AL 

; place  a  zero  intagar 

INC 

BP 

; to  mark  tha  EndOfStr 

CLC 

POP 

DZ 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

SNDP 

COPY 

NUMBXRS 

Copy  a  titla  string  into  memory  from  ths  configuration  fila. 


f 

Input  m 

BP  ptr  to  hasp  storaga  araa 

; 

lina  of  taxt  in  [FilBuf] 

f 

Output 

■  asciis  taxt  string  storad  in  tha  haap 

f 

byta  ■  hax  0  marks  tha  and  of  tha  string 

PROC 

COPY  TO 

HBAP 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

AX,  AX 

;zaro  numbar  holder 

MOV 

BX,  Offsat  FilBuf 

jptr  past  fila  name 

MOV 

AH, [BX] 

jget  staring  marker 

MOV 

AL, ■] ■ 

; close  bracket 

CMP 

AH, " [■ 

;is  open  bracket? 

JZ 

CTHO 

;if  yes  goto  naxt  tast 

MOV 

AL, ■}" 

;alsa  dose  pran theses 

CTHO : 

MOV 

AH,  AL 

fandOf String  marker 

CTH1: 

INC 

BX 

;ptr  to  naxt  char 

CMP 

BYTH  PTR  [BX] , Oh 

;is  it  andofline? 

JZ 

CTH2 

;if  yes  exit 

CMP 

BYTH  PTR  [BX] , AH 

fis  and  of  string? 

JZ 

CTH2 

fif  yes  exit 

; - 

-place  tha  charactar  in  tha  taxt  string 

MOV 

AL, [BX] 

;gat  char  from  buffer 

MOV 

[BP] , AL 

; place  char  in  haap 

INC 

BP 

f advance  heap  pointer 

JMP 

SHORT  CTH1 

fget  naxt  char 

i - 

-placa  a  hax  0  at  tha  and  of  tha  string 

CTH2 : 

XOR 

AX,  AX 

f0  ■  BndOf String 

MOV 

[BP] , AL 

f store  valua  in  memory 

INC 

BP 

; advance  haap  ptr 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

SNDP 

COPY  TO 

HBAP 

J 

}  R«mov«  all  laading  apacaa  from  tha  FllBuf  string. 

i 

Input  ■ 

nona  (asciis  string  in  FilBuf) 
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1 

Output 

•  carry  flag  ■  buffer  overflow 

PROC 

RBCOVR 

SPACSS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

POSH 

ss 

MOV 

AX,DS 

7  set  register  IS 

MOV 

IS, AX 

; to  data  segment 

, - 

-is  there  a  leading  space  ? 

RKK1: 

MOV 

BX, Offset  PilBuf 

;ptr  to  buffer 

CMP 

BYT!  PTR  [BX] ,  '  ' 

;is  1st  char  a  space? 

JNZ 

RXM4 

;if  NO  then  exit 

; - 

-compute 

the  length  of  the  string 

MOV 

AX, Offset  FilBuf 

» address  of  buffer 

CALL 

STR  LXNGTH 

;get  string  length 

JC 

RIMS 

;exit  if  overflow 

MOV 

CX,  AX 

; length  to  CX 

) . 

-overwrite  the  leading  space 

RKM3: 

INC 

CX 

/ so  hex  0  gets  moved 

MOV 

SI,  Offset  FilBuf  +  1 

7  source  ptr 

MOV 

DI,  offset  FilBuf 

7 destination  ptr 

CLD 

7 auto  inc  DI  and  SI 

RSP 

MOVSB 

imovm  chars  to  the  left 

JMP 

SHORT  RIM1 

7 check  for  more  spaces 

RKM4: 

CLC 

7 exit  no  error 

RHM5: 

POP 

IS 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

SNDP 

RKMOVR 

SPACIS 

computer  the  length  of  the  ASCII  string  in  the  DS  segment 


7 

Input 

■  AX  ■  string  offset  address 

7 

Output 

m  AX  ■  number  of  characters  in  the 

string 

1 

7 

assumed  string  less  than  256  bytes 
carry  flag  if  overflow 

PROC 

STR  LINOTH 

PUSH 

BX 

PUSH 

CX 

MOV 

BX,  AX 

7ptr  to  buffer 

XOR 

CX,CX 

7  zero  counter 

UEEN1 : 

CMP 

BYT!  PTR  [BX] , Oh 

7 is  it  end  of  str? 

JZ 

LIN2 

7  if  yes  then  done 

INC 

BX 

7 ptr  to  next  byte 

INC 

CL 

7 counter  +  1 

JNC 

LRN1 

7  loop  if  not  overflow 

LUT2 : 

MOV 

AX,  CX 

7 place  count  in  AX 

POP 

CX 

POP 

BX 

RIT 

BHDP 

1 

STRLBNOTH 

7 

7 

Input 

■  AX  «  error  type 

7 

Output 

■  display  message  on  the  screen 

PROC 

CFO  BRR 

PUSH 

AX 
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PUSH 

BX 

PUSH 

cx 

PUSH 

DX 

CMP 

AX, 8 

/is  data  out  of  range? 

JC 

GBR1 

;if  MO  continue 

MOV 

AX,  8 

/ if  YES  error  ■  8 

SHL 

AX,  1 

; multi  err  code  by  2 

MOV 

BX, Offset  CFGBrr 

/open  error  table  base 

ADD 

BX,  AX 

/add  err.  offset  to  base 

MOV 

AL, [Warning] 

/warning  color 

MOV 

CL, [Color] 

/save  original  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX, 0207h 

/row  3 /Col  8 

CALL 

GOTOYX 

/set  cursor 

CALL 

CSTR  OUT 

/output  this  line  to 

db 

'  CFG  file  error 1  ',0 

/the  screen. 

MOV 

AX, [BX] 

/ptr  msg  string  to  AX 

CALL 

DSTR  OUT 

/display  type  of  error 

MOV 

AX, 1500h 

/row  21, column  0 

CALL 

MENU  BOX 

/draw  menu  box 

MOV 

AL, [Menu] 

/set  color  ■  menu 

MOV 

[Color] , AL 

MOV 

AX, 1607h 

/row  23, column  5 

CALL 

GOTOYX 

CALL 

CSTR_OUT 

db 

'This  configuration  file 

can  not  be  used  until  the  error  is  ' 

db 

'corrected. ' ,0 

MOV 

AX, 1711h 

/ row  23, column  5 

CALL 

GOTOYX 

CALL 

CSTROUT 

db 

"Press  any  key  to  return 

to  the  FeedBack  Main  Menu . ” , 0 

MOV 

[Color] , CL 

/restore  original  color 

CALL 

HIDB  CUR 

CALL 

BRR  SOUND 

CALL 

CLOSE  ALL  FILES 

CALL 

GET  CHAR 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

CFG  ERR 

.DATA 

CFOBrr  dw 

dw 

CfEO  db 

C£B1  db 

CfB2  db 

C£B3  db 

CfB4  db 

C£B5  db 

C£B6  db 

C£B7  db 

C£S8  db 

/ 

•  CODE 

/ 

;  Check  the  CFG  information  entered  in  the  heap  for  errors. 
t  Input  »  none 

j  Output  ■  carry  flag  «  data  error 


Offset  CfBO, Offset  CfBl, Offset  CfB2, Offset  C£B3 
Offset  CfE4, Offset  CfB5, Offset  CfE6, Offset  CfB7, Offset  CfB8 
' :  To  many  Factors .  Divide  into  two  files . ' , 0 
The  first  data  line  is  not  a  Group  name.  ',0 
' :  Data  line  after  Group  name  is  not  a  Factor  name .  ' , 0 
':  Data  line  after  Factor  name  is  not  a  Self  file  type.  ',0 
An  answer  file  name  is  not  preceded  by  a  Self  file.  ',0 
':  An  answer  file  name  is  missing  question  numbers.  ',0 
A  question  number  is  greater  than  200.  ',0 
A  Group  contains  both  SF1  and  SF2  file  types.  ',0 
Brror  code  beyond  table.  ',0 
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PROC 

CHICK 

era 

POSH 

PUSH 

PUSH 

PUSH 

MOV 

AX 

BX 

ex 

DX 

AX, 4 

;o£fset  factor  in  table 

MOV 

BX, Offset  CFGTbl 

;ptr  to  CPG  table 

MOV 

DX,  BX 

;save  the  ptr  in  dx 

/ - 

-is  ths 

first  data  member  a  group  n&ma? 

MOV 

CX,  1 

/ type  error  number 

CMP 

WORD  PTR  [BX] , 7 

; is  it  a  group  name? 

JZ 

CKBO 

;if  YKS  goto  next  test 

JMP 

CKS15 

;else  display  error 

? - 

-is  sach 

group  name  followed  by  a  factor  nams  ? 

CKBO: 

INC 

ex 

/ type  error  number 

MOV 

BX,DX 

;ptr  to  CFO  table 

SUB 

BX,  AX 

/adjust  ptr  for  an  add 

CKB1 : 

ADD 

BX,  AX 

/ptr  to  next  entry 

CMP 

WORD  PTR  [BX]  ,  8 

/is  it  end  of  table? 

JZ 

CKK2 

;if  yes  next  test 

CMP 

WORD  PTR  [BX] , 7 

;is  this  a  group  name? 

JNZ 

CKE1 

;if  NO  look  somemore 

CMP 

WORD  PTR  [BX  +  4] , 6 

;is  next  a  factor  name? 

JZ 

CXB1 

/if  YKS  loop 

JMP 

CKB15 

/else  display  error 

/ - 

-is  sach 

factor  nams  followsd  by  a  Self  file  namt 

i  ? 

CKB2: 

INC 

ex 

/type  error  number 

MOV 

BX.DX 

/ptr  to  CFO  table 

SUB 

BX,  AX 

/adjust  ptr  for  an  add 

CKK3 : 

ADD 

BX,AX 

/ptr  to  next  entry 

CMP 

WORD  PTR  [BX] , 8 

/is  it  end  of  table? 

JZ 

CKB4 

/if  yes  next  test 

CMP 

WORD  PTR  [BX] , 6 

/is  this  a  group  name? 

JNZ 

CKB3 

/if  NO  look  somemore 

CMP 

WORD  PTR  [BX  +  4],  5 

/is  next  a  SF1  name? 

JZ 

CKB3 

/if  YHS  OK  next  test 

CMP 

WORD  PTR  [BX  +  4],  4 

/is  next  a  SF2  name? 

JZ 

CKB3 

/if  YKS  OK  next  test 

JMP 

SHORT  CKH15 

/else  display  error 

/ - 

-is  sach 

Other  fils  name  preceded  by  a  self  file 

name  ? 

CKE4 : 

INC 

CX 

/type  error  number 

MOV 

BX,DX 

/ptr  to  CFG  table 

SUB 

BX,  AX 

/adjust  ptr  for  an  add 

CKK5: 

ADD 

BX,  AX 

/ptr  to  next  entry 

CMP 

WORD  PTR  [BX] , 8 

/is  it  end  of  table? 

JZ 

CKK6 

/if  yes  next  test 

CMP 

WORD  PTR  [BX] , 4 

/is  this  an  other  name? 

JNC 

CKX5 

/if  NO  look  somemore 

CMP 

WORD  PTR  [BX  -  4],  5 

/is  preced  SF1  name? 

JZ 

CKK5 

/if  YHS  OK  next  test 

CMP 

WORD  PTR  [BX  -  4], 4 

/is  preced  SF2  name? 

JZ 

CKK5 

/if  YES  OK  next  test 

JMP 

SHORT  CKS15 

/else  display  error 

> - 

-is  sach 

file  name  follow  by  an  answer  string  of 

one  or  more  numbers  ? 

CKB6 : 

INC 

CX 

/type  error  number 

MOV 

BX,DX 

/ ptr  to  CFG  table 

SUB 

BX,  AX 

/adjust  ptr  for  an  add 

CKB7  s 

ADD 

BX,  AX 

/ptr  to  next  entry 

CMP 

WORD  PTR  [BX] , 8 

/is  it  end  of  table? 

JZ 

CKB10 

/if  yes  goto  next  test 

CMP 

WORD  PTR  [BX] , 6 

/is  this  a  file  name? 

A-99 


one 

CXS7 

/  if  HO  look  soeoort 

MOV 

BP, [BX  ♦ 

2] 

>get  ptr  heap  address 

CMP 

BYT*  PTR 

[BP] , 0 

/is  it  Xnd  of  String? 

JZ 

CKX15 

; YBS  ■  number  error 

1 - 

-look 

for  integers 

>200  marked  as  FFh 

INC 

CX 

/ marker  for  overflow 

CXK8 : 

CMP 

BYT*  PTR 

[BP]  ,  0 

; is  this  BndOFString? 

JZ 

CKB9 

>if  Yes  exit  loop 

CMP 

BYT*  PTR 

[BP] , OFFh 

/is  it  overflow  error 

JZ 

CXI15 

/if  YBS  goto  error 

IMC 

BP 

jptr  to  next  integer 

JMP 

SHORT  CKB8 

; loop  until  BndOfStr 

CKB9: 

DEC 

CX 

; marker  for  No  numbers 

JMP 

SHORT  CKB7 

;loop  until  BndOfTabla 

/ - look  for  S71  and  SF2  filaa  in  tha  aama  group. 


/ 

Note: 

must  be  last 

test  because 

ptr  to  CFG  table 

in  DX  is  overwritten 

CKB10: 

INC 

CX 

/advance  2  because  last 

INC 

CX 

/test  checked  to  errors 

MOV 

BX,DX 

/ptr  to  CFG  table 

SUB 

BX,  AX 

/adjust  ptr  for  an  add 

CKX11: 

ADD 

BX,  AX 

/ptr  to  next  entry 

CMP 

WORD  PTR 

[BX]  ,8 

/is  it  end  of  table? 

JZ 

CKH16 

/if  yes  exit  CFG  OKI 

CMP 

WORD  PTR 

[BX]  ,7 

/is  this  a  group  name? 

JNZ 

CKB11 

/if  NO  look  somemore 

CKB12: 

ADD 

BX,  8 

/ ptr  to  1st  self  file 

MOV 

DX, 0504h 

/ 5  a  SF1  4  -  SF2 

CMP 

DL, [BX] 

/is  file  -  4? 

JNZ 

CKH13 

/if  NO  then  dl-4  file-5 

MOV 

DL,DH 

/else  dl  -  5  file  -4 

/ - 

-look 

until  end  of 

table  or  next 

group  name. 

CKB13: 

XOR 

DH,DH 

/make  a  16  bit  number 

CKK14 : 

ADD 

BX,  AX 

/ptr  to  next  entry 

CMP 

WORD  PTR 

[BX] ,  8 

/is  it  end  of  table? 

JZ 

CKB16 

/if  yes  exit  CFG  OKI 

CMP 

WORD  PTR 

[BX]  ,7 

/is  this  a  group  name? 

JZ 

CKK12 

/if  YBS  loop 

CMP 

[BX] , DX 

/is  it  the  wrong  file? 

JNZ 

CKB14 

/if  NO  loop 

CKB15: 

MOV 

AX,  CX 

/err  type  to  ax 

CALL 

CFG  BRR 

/display  the  error 

STC 

/set  error  flag 

CKB16: 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

BNDP 

CHECK  CFG 

/ 


/ 

;  Copy  a  heap  Intagar  string  or  an  ascii  test  string  to  the  FilBuf. 

;  It  will  work  on  tha  integer  strings  because  they  are  byte  intergers 
;  and  0  is  not  used  as  an  integer  but  as  an  endof string  marker. 


/ 


/ 

Input  ■ 

AX  -  ptr  to  string  in  heap 

/ 

/ 

PROC 

Output 

a  length  of  string  in  AX 

COPY  HRAP  STR 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

A-100 


CPP1: 


PUSH 

DS 

PUSH 

IS 

MOV 

SI, XX 

t lourca  ptr 

MOV 

XX,  DS 

jaat  register  IS 

MOV 

IS, XX 

; to  data  segment 

MOV 

XX,  SS 

; set  ragiatar  DS 

MOV 

DS,XX 

{to  tha  stack  segment 

XOR 

CX.CX 

{ so  hax  0  gats  moved 

MOV 

DX,  Off sat  FilBuf 

;dastination  ptr 

CLD 

{auto  inc  DX  and  SI 

CMP 

BYTI  PTR  [SI] , 0 

>is  it  andof string? 

JZ 

CPP2 

{if  yas  axit  alsa 

INC 

CX 

; inc  lina  ptr 

MOVSB 

{move  tha  byta 

JMP 

SHORT  CPP1 

;chack  tha  naxt  byta 

MOVSB 

inova  hax  0  also 

MOV 

XX, CX 

i lina  langth  to  ax 

POP 

HS 

POP 

DS 

POP 

DX 

POP 

CX 

POP 

BX 

RKT 

COPY  HBAP  STR 

display  tha  configuration  f ila  data  to  tha  scraan 


i 

Input  ■ 

[CGFTbl]  data  tabla  points  to 

haap  data  strings 

; 

Output  i 

■  display  haap  data 

to  tha  scraan 

PROC 

DISPLAY 

CFG 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX, Off sat  CFGTbl 

{ptr  to  group  in  tabla 

MOV 

DX,BX 

{save  last  group  ptr 

;nota 

all  group 

nams  or  new  pagas 

start  hara 

DSSO : 

MOV 

XL,  [Normal] 

;gat  normal  color  var 

MOV 

[Color] , AL 

; sat  sat  color  to  normal 

MOV 

CX, 0027h 

;sat  row/col  ptr  *  0 

CALL 

CLSAR  SCRBBN 

PUSH 

BX 

;stora  currant  ptr 

CMP 

WORD  PTR  [BX] , 7 

i is  this  a  group  title? 

JZ 

DSS1 

;if  Yas  continue  alsa 

MOV 

BX,  DX 

;get  last  group  ptr 

DSS1: 

MOV 

XX, [BX  +  2] 

;ptr  to  group  name 

POP 

BX 

;restora  current  ptr 

CALL 

COPY  HBAP  STR 

;move  to  [FilBuf] 

SHR 

XL,  1 

{divide  langth  by  2 

SUB 

CL, XL 

{canter  group  title 

MOV 

XX, CX 

{row/col  ptr 

CALL 

GOTOYX 

{place  cursor 

MOV 

XX, Off sat  FilBuf 

{ptr  to  string 

CALL 

DSTR  OUT 

{ show  tha  group  title 

CMP 

NOR D  PTR  [BX] , 7 

{is  this  a  group  title? 

JNZ 

DSS2 

{if  NO  it  is  Factor 

ADD 

BX,  4 

{ptr  to  Factor  title 

XOR 

cx,cx 

{row  O/column  0 

;Nota 

all  factor  names  start  haar 

DSS2 : 

ADD 

CH,  2 

{row  •  row  +  2 

XOR 

CL, CL 

;aet  column  m  0 
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CALL  FACTORNAMB 

ADD  BX, 4 

DSC  CH 

I All  file  types  start  hsra 
D8S3:  MOV  CL,  19h 

INC  CH 

MOV  AX, CX 

CALL  GOTOYX 

MOV  AX, [BX] 

DKC  AX 

SHL  AX, 1 

MOV  SI, AX 

MOV  AX, Offset  FilTbl 

ADD  SI, AX 

MOV  AX, [SI] 

CALL  DSTR  OUT 

MOV  AX,  [BX  2] 

CALL  COPYHBAPSTR 

MOV  SI, Off set  FilBuf 

DSS4 :  MOV  AL, [SI] 

CMP  AL, 0 

JZ  DSS5 

POSH  SI 

CALL  CSTROUT 

db  «  ",0 

POP  SI 

XOR  AH, AH 

CALL  BINOUT 

IHC  SI 

JMP  SHORT  DSS4 

DSS5 :  ADD  BX, 4 

MOV  AX, [BX] 

SUB  AX,  6 

JC  DSS3 

JNZ  DSS5B 

/ - will  this  factor  fit  on  ths  screen 

PUSH  BX 

MOV  CL,  CH 

DSS5A:  ADD  BX,4 

IHC  CL 

CMP  WORD  PTR  [BX] , 6 

JC  DSSSA 

POP  BX 

CMP  CL, 20 

JC  DSS2 

/ - page  break 

DSS5B:  CALL  CFGMBSSAGB 

JC  DSS6 

CMP  AX, 0 

JZ  DSS5C 

MOV  DX,BX 

DBC  AX 

JNZ  DSS6 

DSS5C:  JMP  DSSO 

DSS6 :  POP  DX 

POP  CX 

POP  BX 

POP  AX 

RUT 

UNDP  DISPLAY  CFG 


/ display  factor  name 
;ptr  to  file  type 
j  row»row  -  l 

/ start  in  col  25 
; row»row+l 
/ row/col  to  ax 
/move  cursor 
;get  file  type 
; convert  0  -  5 
/multiply  by  2 
/store  offset  in  SI 
/ ptr  to  base  of  table 
/add  offset  to  base 
/get  ptr  from  table 
/display  the  type  name 
/ptr  to  question  no 
/move  to  [FilBuf] 

/ptr  to  file  buffer 

/get  number 

/is  it  endof string? 

/if  YBS  exit  loop 
/save  SI  pointer 
/space  before  number 
/this  routine  does  not 
/restore  SI  pointer 
/convert  to  16  bits 
/display  number 
/ptr  to  next  byte 

/point  to  next  entry 
/get  data  type  in  ax 
/is  it  a  file  type? 

/if  yes  do  again 
/<>  0  is  group  or  end 

/save  current  pointer 
/place  row  count  in  cl 
/ptr  to  next  data  type 
/row-t-1  in  case  we  loop 
/is  it  a  file  type? 
/loop  if  YBS 
/restore  current  ptr 
/will  it  fit  on  page? 
/if  YBS  display  factor 

/ stop  at  page  break 
/exit  on  escape  key 
/is  it  a  factor  name? 
/if  YBS  goto  the  top 
/update  the  group  name? 
/is  it  a  group  name? 

/if  HO  then  exit 
/if  YBS  goto  the  top 
/restore  registers 


DATA 
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FILTbl 

dw 

dw 

Of  fast  FIL84,0f fsat  FILS3,Offset  FILS2 
Off sat  FILS1,  Off sat  FIL81 

FILS1 

db 

'  Saif t ' ,  0 

FIL82 

db 

'  Faars  t ' , 0 

FILS3 

db 

'  Supariors : ' ,  0 

FIL84 

db 

.CODI 

' Subordinatas : ' ,  0 

Display  a  Factor  Ha me  to  tha  acraan. 

Input  ■  BX  ■  ptr  to  Factor  Nana  data  typa 
CX  m  row/col 

Output  ■  Factor  nau  to  tha  acraan 

This  routina  will  split  name  if  largar  tha  24  charactars. 
It  aborts  tha  suss  if  it  is  longar  than  36  charactars 


/ 

or  a 

singla  word  with  aora  than  24  lattars. 

f 

PROC 

FACTOR  NAME 

POSH 

AX 

;sava  ragistars 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

MOV 

AX, [BX  +  2] 

iptr  to  factor  nama 

CALL 

COPT  HRAP  STR 

;mova  to  [FilBuf] 

CMP 

AX,  37 

/is  nama  langth  >  367 

JNC 

FANS 

/if  TBS  do  not  display 

CMP 

AX,  25 

/is  nama  langth  >  24  7 

JC 

FAM4 

/if  NO  display  string 

t - 

-look  for  a  placa  to  divida  tha  factor  name  into 

■ 

• 

a 

H 

l 

DRC 

AX 

; lsnth  m  langth  -1 

FAN1: 

MOV 

BX,  Offsat  FilBuf 

jptr  to  bog  if  string 

MOV 

DX,BX 

;savo  start  ptr  in  dx 

ADD 

BX,  AX 

/ptr  to  last  char  in  str 

CMP 

BYTR  PTR  [BX] , '  ' 

/is  this  a  spaca  7 

JZ 

FAN2 

/if  yos  goto  naxt  tast 

CMP 

BYTR  PTR  [BX],'/' 

/is  it  a  backslash  7 

JZ 

FAH2 

/if  TRS  goto  naxt  tast 

DRC 

AX 

; lanth  «  langth  -1 

JZ 

FAN5 

;axit  if  can  not  divida 

JMP 

SHORT  FAN1 

/also  look  a  naxt  char 

l - 

-hava  wa  shortan  it  anough  7 

FAN2 : 

CMP 

AX, 25 

/is  nama  length  >  24  7 

JC 

FAN3 

/if  TRS  split  nama 

DRC 

AX 

/lanth  m  langth  -1 

JMP 

FAH1 

/if  NO  kaop  looking 

; - 

-split 

tha  factor  nama 

FANS  i 

XOR 

AL,  AL 

/Ob  andof string  markar 

MOV 

[BX] ,AL 

/mark  and  of  first  str 

; - 

-display  2nd  half  of  string 

INC 

CH 

/pointer  to  next  row 

MOV 

AX,  CX 

/row/col  ptr 

CALL 

OOTOTX 

/place  cursor 

me 

BX 

/ptr  to  bag.  of  2nd  half 

MOV 

AX,BX 

/ptr  to  string 

CALL 

DSTR  OUT 

/show  tha  group  title 

DRC 

CH 

/restore  original  row 

i - 

-display  1st  half  of  string 

FAN4: 

MOV 

AX, CX 

/row/col  ptr 

CALL 

OOTOTX 

/place  cursor 

MOV 

AX, Offsat  FilBuf 

/ptr  to  string 

CALL 

DSTR  OUT 

/show  tha  group  title 

FANS: 

POP 

DX 

/restore  registers 
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hndp 


pop  cx 

POP  BX 

POP  AX 

RXT 

FACTOR  MANX 


Instructions  for  uss  of  ths  display  configuration. 
Input  ■  Nona 
Output  ■  Nona 


PROC 


CFF2 : 
CFF3: 


KNDP 


CFQMBSSAQR 

POSH  AX 

POSH  BX 

POSH  CX 

POSH  DX 

NOV  CL, [Color] 

NOV  AX, 1600h 

CALL  OOTOYX 

NOV  AL,  [Manu] 

NOV  [Color] , AL 

CALL  CSTR_OOT 

db  201,  78  OOP  (205), 187 

db  186,  78  DOP  ('  ' ) , 186 

db  200,  78  DOP  (205) ,0 

NOV  BL, AL 

NOV  AH, 09h 

NOV  AL, 188 

NOV  BH, 0 

NOV  CX,  1 

INT  lOh 

NOV  AX, 1718h 

fXT.T.  OOTOYX 

CALL  CSTROOT 

db  'Prsss  Any  Kay  to  Continua',0 

NOV  [Color], CL 

CALL  HIDSCOR 

rXT.T.  QKTCHAR 

CNP  AL, lBh 

JNZ  CFF2 

STC 

JNP  SHORT  CFF3 

CLC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RKT 

CFO  NXSSAOB 


;sava  ragistars 


;ga t  currant  color 
;row  2 2 /column  0 
; sat  cursor  position 
/ clangs  color  attributa 
/for  scran  output. 

;  draw  manu  box 

/all  axcapt  last  byta. 

; tha  scraan  to  scroll 
;in  row  25,  col  80. 

I color  to  BL 
/writs  char  funct  no. 
/last  character  of  box 
/page  0  assumed 
; number  of  bytes 
/writs  last  byta 
/row  22, column  12 


/restore  orig  color 


/is  it  an  escape  key? 
/if  NO  exit 

/if  YKS  sat  carry  flag 
/and  exit. 

/clear  carry  flag 
/restore  ragistars 


/ - Ask  a  yes  or  no  question. 

/  Input  ■  Nona 

/  Output  ■  Carry  Flag  ■  YKS 

/ 

PROC  SHOW  YN 

POSH-  AX  /save  ragistars 

POSH  BX 
POSH  CX 
PUSH  DX 

riT.T.  CLXARMKSSAOK 

NOV  AL, [Warning]  /warning  color 
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SHI* 

SH2 : 

SH4 : 
SH5 : 

KNDP 


PROC 


MOV 

[Color] , AL 

/set  color 

MOV 

AX, 0212h 

/r ow  3 /Col  12 

CALL 

GOTOYX 

;sat  cursor 

CALL 

CSTR_OOT 

; display  warning 

db 

'  View  the  configuration  information  ? 

Y/[N]  ',0 

MOV 

AL, [Normal] 

; normal  color 

MOV 

[Color] , AL 

/set  color 

CALL 

HIDE  CUR 

CALL 

GET  CHAR 

AND 

AL, 5Fh 

j  turn  off  bits  6  &  8 

CMP 

AL, 'N' 

;is  it  No? 

JZ 

SH4 

;if  yes  exit 

CMP 

AL, ODh 

/is  it  <Enter>? 

JNZ 

SH2 

/if  not  continue 

STC 

;set  carry  flag 

JMP 

SHORT  SH4 

/exit 

CMP 

AL, 'Y' 

jis  it  Yes? 

JNZ 

SHI 

;if  not  get  another 

STC 

/set  carry  flag 

JMP 

SHORT  SH5 

;exit 

CLC 

/clear  carry  flag 

POP 

DX 

/restore  registers 

POP 

cx 

POP 

BX 

POP 

AX 

RET 

SHON 

YN 

Open  auxiliary  files.  DO  NOT  DISPLAY  ERROR  MESSAGE 


Input  ■  AX  ■  ptr  ASCXXZ  file  type. 

Assumes  [Search]  already  has  a  correct  path  and  file  name . 


Output 

-  Carry  flag  set  if  an  opening 

error  AX  . 

■  error 

file  sise  in  AX  and  DX/  File 

Handel  in 

BX. 

File  ptr  at  the  beginning  of 

the  file. 

Note: 

Registers  are  not  saved. 

OPEN  QUIT 

MOV 

BX,  AX 

/save  file  type  offset 

MOV 

AX,DS 

/assign  ES  to  the 

MOV 

ES,  AX 

/data  section 

MOV 

AX, Offset  Search 

/ ptr  to  path  +  file  name 

MOV 

CX,  AX 

/ save  str  beginning  ptr 

CALL 

STR  LENGTH 

/ get  length  of  string 

SUB 

AX, 4 

/ length  -  4  ■  ■ . ■ 

ADD 

AX,  CX 

/ptr  to  the  period 

MOV 

DX,  AX 

/destination  ptr 

MOV 

SX,BX 

/source  ptr 

CLD 

/auto  inc  SX  &  DX 

MOV 

CX,  5 

/number  byte  to  move 

REP 

MOVSB 

/move  type  to  Search 

-open  file  and  save  file  handle 

MOV 

DX, Offset  Search 

/ptr  to  path  +  file 

MOV 

AH, 3Dh 

/open  file  6  get  handle 

MOV 

AL,42h 

/share/read/write  mode 

XNT 

21h 

/try  to  open  file. 

JC 

OA1 

/carry  ■  opening  error 

MOV 

BX,  AX 

/file  handle  in  BX 

XOR 

AX,  AX 

/sero  AX 
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MOV 

CX.AX 

/off  set  from  EOF 

MOV 

DX.AX 

1-  0  in  CX  AMD  DX. 

MOV 

AX,4202h 

/position  at  EOF 

XNT 

21h 

/else  of  file  to 

CLC 

7 AX  and  DX 

0A1: 

RKT 

KNDP 

) 

OPEN_QUIT 

/ 

— As k  a  yea  or  no  question. 

/ 

Input  ■ 

None 

7 

Output 

■  Carry  Flag  -  YKS 

PROC 

DATA  YN 

PUSH 

AX 

7  save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEAR  MESSAGE 

MOV 

AL, [Warning] 

7 warning  color 

MOV 

[Color] , AL 

;set  color 

MOV 

AX,020Ch 

/row  3 /Col  12 

CALL 

GOTOYX 

/set  cursor 

CALL 

CSTR  OUT 

/display  warning 

db 

'  Do  you  want  to  create  a  FeedBack 

data  file  ?  [Y]/N  ',0 

MOV 

AL, [Normal] 

/normal  color 

MOV 

[Color] , AL 

/ set  color 

DH1: 

CALL 

HIDE  CUR 

CALL 

GET  CHAR 

AND 

AL, 5Fh 

/turn  off  bits  6  &  8 

CMP 

AL,  'N' 

/is  it  k,o? 

JZ 

DH4 

/if  yes  exit 

CMP 

AL.ODh 

/is  it  <Bnter>? 

JZ 

DH2 

/if  not  continue 

CMP 

AL, 'Y' 

/is  it  Yes? 

JNZ 

DH1 

/if  not  get  another 

DB2 1 

STC 

/set  carry  flag 

JMP 

SHORT  DH5 

/exit 

DH4 : 

CLC 

/dear  carry  flag 

DHS : 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

KNDP 

7 

DATA  YN 

7 

7 - 

— Does  the  Date  file  sise  natch  the  configuration  information? 

/ 

Input  ■ 

AX  ft  DX  ■  sise  of  data  file 

/ 

Output  ■  Carry  Flag  ■  error  if  DAT  file  is 

not 

the  correct  size 

/ 

Else: 

/ 

Sets  [MaxID]  number  of  ID  numbers 

in 

the  DAT  file 

/ 

Sets  [DNXLnj  expected  no  of  bytes 

in 

the  index  file. 

PROC 

IS  DATA 

CORRECT 

PUSS 

AX 

/save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CMP 

AX,  0 

/is  the  file  empty? 

JZ 

ISD3 

/if  yes  display  error 

7 - 

-Maxld  ■  Data  File  sise  in  bytes  /  DataRecordLength 
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I 


ISD3 : 


XSD4: 

ISD5: 


SNDP 


MOV 

CX, [DRacLn] 

jgat  data  record  In 

DIV 

CX 

/File  ln/Rac  In 

CMP 

DX,  0 

;ia  remainder  -  0 

JNZ 

X8D3 

/ error  in  aiza 

MOV 

[MaxID] ,  AX 

/number  of  atudanta 

Indax 

aiza  in  bytaa  ■  MaxID  *  22 

; 

MOV 

CL, 22 

/22-IDfield  +  DRacNo 

MUL 

CL 

;timaa  MaxID  ■ 

MOV 

[NDXLn] , AX 

;aiza  of  index  fila 

JMP 

SHORT  ISD4 

/exit  no  error 

MOV 

XL, [Warning] 

/ warning  color 

MOV 

[Color] ,AL 

;aat  color 

MOV 

AX, 0107h 

/row  3/Col  12 

CALL 

OOTOYX 

/aet  cursor 

CALL 

CSTR_OUT 

/display  warning 

db 

'  The  data  file 

ia  not  compatible  with 

the' 

db 

'  configuration 

fila.  ',0 

MOV 

XL, [Normal] 

/normal  color 

MOV 

[Color] , AL 

/act  color 

STC 

/sat  carry  flag 

JMP 

SHORT  ISD5 

/exit 

CLC 

/dear  carry  flag 

POP 

DX 

/restore  ragiatara 

POP 

CX 

POP  BZ 


POP  AX 


RET 


IS  DATA  CORRECT 


Open  DAT  file  and  chack  to  •••  it  ia  tha  corract  siza 
input  ■  nona 

output  a  carry  flag  if  DAT  fila  ia  not  corract  aiza 

CALLS  I SDATACORRSCT  that  aata  tha  following  variablaa 
[MaxID]  numbar  of  ID  numbers  in  tha  DAT  fila 
[DNXLn]  axpactad  no  of  bytaa  in  tha  indax  file. 


PROC  OPEN  DATAFILE 
PUSH"  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  XL, [Normal] 

MOV  [Color] ,AL 

XOR  AX, AX 

CALL  MENUBOX 

MOV  AX, Of feet  DATTyp 

CALL  OPSN_QUIT 

JC  0PD3 

MOV  [DATHd] ,BX 

CALL  IS_DATA_CORRBCT 

JC  0PD3 

/ - Is  a  rank  fila  tha  corract  aiza  ? 

MOV  AX,Offaet  RNKTyp 

CALL  OPEN_QUXT 

JC  OPD1 

MOV  [RNKHd] , BX 

CMP  AX, [RKKLn] 

JZ  OPD1 

CALL  DELETHRANKFILE 

/ - Ia  tha  indax  fila  tha  corract  aiza  ? 

OPD1 :  MOV  AX, Of feat  MDXTyp 


;a ava  ragiatara 


;gat  normal  color  var 
;aat  aat  color  to  normal 
;row  0  and  column  0 
; draw  top  menu  box 


;aave  file  handle 
/data  aiza  ■  config? 
;exit  on  aiza  error 

;opan  rank  file  if 
;  it  ia  praaant? 

>If  not  found  next  teat 
jaava  rank  handle 
/is  aiza  corract? 

/if  yea  look  for  indax 
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0PD3  > 


0PD3A: 


0PD4 : 
0PD5 : 


ENDP 

; 


PROC 


CLOl: 


CALL 

OPEN  QUIT 

>look  for  indax  fila 

JC 

OPD4~ 

; axit  if  not  found 

MOV 

[NDZHd] ,BX 

iaava  fila  handla 

MOV 

8X,AX 

;sava  fila  aixa 

MOV 

AX, [MaxID] 

; gat  number  of  racorda 

INC 

AX 

; cor r act  aisa  - 

INC 

AX 

; 32 (IDs  +  2)  bytaa 

MOV 

CX,  32 

; indax  racord  langth 

MOL 

CX 

7 AX  ■  indax  fila  aixa 

CMP 

AX,BX 

»ia  it  corract  aixa? 

JZ 

OPD4 

; if  yaa  axit  OKI 

CALL 

DELETE  NDX  FILE 

JMP 

SHORT  OPD4 

talao  cloaa  rand  fila 

MOV 

AX, [DATHd] 

;gat  data  fila  handla 

CALL 

CLOSE 

; cloaa  bad  data  fila 

JC 

OPD3A 

7 axit  on  DOS  arror 

XOR 

AX, AX 

7xaro  to  ragiatar 

MOV 

[DATHd] , AX 

7 mark  fila  cloaad 

CALL 

DATA  YN 

7craata  tha  fila  ? 

JNC 

OPD5 

7  if  NO  than  axit 

CALL 

MAKE  DATA  PILE 

7build  a  data  fila 

JC 

OPD5 

7 axit  on  arror 

CLC 

7Claar  carry  *  data  OK 

POP 

DX 

7raatora  ragiatar a 

POP 

CX 

POP 

BX 

POP 

AX 

RNT 

OPEN 

DATA  PILE 

CODE 


Cloaa 

an  opan  fila 

Input 

-AX  -  Pila  Handla 

Output 

«  Nona  (massage  displayad  and  carry  flag  sat  on  arror) 

Nota: 

Major  ragistars  saved. 

CLOSE 

PUSH 

AX 

7sava  ragistars 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX,  AX 

7  fils  handla 

CMP 

BX,  0 

7  Is  tha  fila  opan? 

JZ 

CL03 

7 axit  if  fila  closad. 

MOV 

AH,3Sh 

7 cloaa  fila  function  no 

INT 

21h 

7 cloaa  REST . PIL 

JNC 

CL03 

7 axit  if  succsssful. 

CALL 

CLEAR  MESSAGE 

MOV 

CL, [Color] 

7  save  currant  color 

MOV 

AL, [Warning] 

7 warning  color 

MOV 

[Color] , AL 

7  sat  color 

MOV 

AX, 0207h 

7 row  3 /Col  12 

CALL 

GOTOYX 

7  sat  cursor 

CALL 

CSTR_OUT 

7 display  warning 

db 

'Error  dosing  fila.  Prass  Any  Kay 

to  Continua .  ' , 0 

MOV 

[Color] , CL 

7  restore  color 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

GST_CHAR 

STC 

POP 

DX 

7 sat  carry  flag  for  rat 
7rastora  ragistars 

CL03 : 
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i  amt  carry  flag  for  rat 
;raatora  raglatara 


BN DP 


PROC 


I 


CLAO: 


CLA1: 


CLA2: 


BNDP 


PROC 


MCP1: 


POP 

CX 

POP 

BX 

POP 

AX 

RHT 

CLOSE 

-  Close 

the  data  filaa  uaad  by  tha  FeedBack  program 

Input 

■  Nona 

Output 

:  ■  Nona  (masaaga  displayed  and  carry 

flag  act  on  error) 

Motet 

Major  ragiatara  aavad. 

CLOSK 

ALL  PILIS 

POSH  " 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

claar  variable* 

CALL 

CLEAR  PXRCNT 

;aat  percentile*  »  0 

XOR 

AX,  AX 

;zero  to  AX 

MOV 

CX,  6 

;loop  counter 

MOV 

SI,  Offaat  BOF 

/pointer  to  file  vara. 

MOV 

[SI],  AX 

/act  all  file  variables 

INC 

SI 

/except  [FileDr]  to  0 

INC 

SI 

LOOP 

CLAO 

MOV 

CX,  9 

/loop  counter 

MOV 

SI, Offaat  CFGHd 

/ ptr  to  1st  fila  hd 

MOV 

AX, [SI] 

/get  fila  handle 

CALL 

CLOSK 

/close  tha  fila 

JC 

CLA2 

/on  error  leave  handle 

XOR 

AX,  AX 

;  0  ■  fila  is  dosed 

MOV 

[SI] , AX 

/mark  tha  fila  dosed 

INC 

SI 

/ptr  to  next  file  hdl 

INC 

SI 

LOOP 

CLA1 

/loop  thru  all  files 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

CLOSK 

ALLFILKS 

--Check 

to  maka  aura  a  feedback  file  ia  in  tha 

directory. 

Input 

-  Nona 

Output 

;  ■  Carry  Flag  if  no  fila  ia  open. 

IS  SLD 

POSH 

AX 

/save  registers 

POSH 

BX 

POSH 

CX 

POSH 

DX 

XOR 

AX,  AX 

/zero  to  AX  register 

CMP 

[MaxFile]  ,  XL 

/ware  data  files  found? 

JZ 

NCF1 

zO  means  NO  files 

JMP 

NCF2 

/exit  if  found 

MOV 

CL, [Color] 

MOV 

AL, [Warning] 

/warning  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX, 020Bh 

/row  3/Col  12 

CALL 

OOTOYX 

/set  cursor 
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NCF2 : 


HM DP 


PROC 


KHDP 


PROC 


CALL 

CSTROUT 

/display  warning 

db 

'  No  *.CFQ  files  found  in 

the  directory 1  Prass  Any  Kay  ' 

db 

' to  Continue .  ' , 0 

MOV 

[Color] , CL 

/restore  original  color 

CALL 

BIDS  CUR 

CALL 

QBTCHAR 

STC 

/sat  carry  flag 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

IS  SLD 

Inform  tha  user  the  file  is  baing  opanad. 
Input  -  Mona 
Output  >  Nona 


RKADMBSS 

PUSH  AX 

PUSH  CX 

MOV  CL, [Color] 

MOV  XL, [Warning] 

MOV  [Color] ,AL 

MOV  AX,0209h 

CALL  QOTOYX 

CALL  CSTROUT 

db  '  Raadlng  Fila  ' , 0 

MOV  [Color] ,CL 

CALL  HIDKCUR 

POP  CX 

POP  AX 

RHT 

RHAD  MHSS 


z aava  orig.  color  attr 
/warning  color 
/set  color 
/row  3 /Col  12 
zaat  cursor 
/display  warning 

/rastora  orig.  color  att 


Clear  tha  aacond  lina  of  tha  mau  box 
Input  a  Mona 
Output  a  Nona 


CLKARMKSS 
PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  CL, [Color] 

MOV  AL,  [Manu] 

MOV  [Color] , AL 

MOV  AX, 0207h 

MOV  BX, 024Hh 

CALL  CLSAR_WINDOW 
MOV  AX, 020Fh 

CALL  QOTOYX 

CALL  CSTR_OUT 

db  'Prass  tha  <Bntar>  key  to 

MOV  [Color], CL 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RHT 


/aava  orig.  color  attr 
/sat  manu  color 
/changa  color  attribute 
/row  2  and  column  7 
/row  2  and  column  78 
/claar  out  old  message, 
/row  2, column  7 


tha  highlighted  fila. ' , 0 

/restore  orig. color  attr 
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RN DP 


clxar  mss 


1  ---- 

- -Read  a  lina  from  a  fila  into  tha 

256  byta  'FilBuf'  buffar. 

l 

Input  - 

valid  fila  handla 

Bust  ba  in  AX 

1 

Output  ■ 

aata  [ROF]  <>  0  whan  XndOfPIla  ia  raachad. 

t 

Carry  flag  ■  fila 

closaa 

or  fila  ptr  alraady  at  RndOfFila. 

> 

NOTRSi 

t 

LineFeeds  (OAh)  and  HP  paga 

braak 

(D4h)  ara  convart  to  hax  0. 

l 

Only  tha 

lowar  sat  ASCII  charactara  ara  placad  in  tha  buffar. 

l 

No  control  codaa  ate. 

l 

Only  tha 

firat  256  bytaa  of 

tha  lina  ara  savad  in  tha  buffar  but  tha 

} 

procadura  will  kaap  raading  until 

RndOfFila  or  an  OAh  or  D4h  is  raachad. 

} 

OAh  ia  a 

lina  faad  and  WP  RndOfLina  marker.  DOS  taxt  filaa  and  aach  lina 

1 

with  ODh 

a  carraga  r a turn  followad  by  a  lina  faad  OAh. 

» 

(D4h  ia 

a  MP  paga  braak  narkar) 

1 

FROC 

RKAD  LINB 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

SI 

PUSH 

BP 

CMP 

AX,  0 

;ia  tha  fila  opan? 

JZ 

RRR2 

jif  not  Rxit 

MOV 

BX,  AX 

; store  fila  handla 

XOR 

AX, AX 

MOV 

SI,Of faat  FilBuf 

;mark  position  in  buffar 

MOV 

BP,Of faat  FilBuf  + 

255 

;mark  and  of  buffar 

CMP 

[ROF] , AL 

; is  ptr  at  endoffile 

JNZ 

RRR2 

; if  yes  Rxit 

--raad  1 

byta  from  data  fila 

MOV  CX, 

1 

;raad  1  byte 

RBSl: 

MOV 

AX, 3F00h 

;read  fila  function  no 

MOV 

DX,  SI 

} buffar  ptr  to  DX 

INT 

21h 

; gat  byta 

JC 

RRR3 

;end  of  fila? 

CMP  AX, 

CX 

;did  it  read  a  byta? 

JNZ 

RRB3 

;if  no  than  RndOfFila 

MOV 

AL, [SI] 

;get  char  in  AL 

CMP 

AL, OAh 

;is  it  tha  andofline  ? 

JZ 

RRR4 

; if  YRS  exit 

CMP 

AL, 0D4h 

; is  it  WP  paga  braak  ? 

JZ 

RBB4 

; if  YRS  exit 

CMP 

AL, 128 

; is  8th  bit  on? 

JNC 

RRX1 

;if  yas  raad  next  char? 

CMP  AL, 

32 

;is  it  a  control  char? 

JC 

RBX1 

;if  yes  raad  next  char 

CMP 

BP,  SI 

;is  buffar  full  ? 

JC 

RBR1 

; if  yas  raad  until  ODh 

INC 

SI 

;if  no  advance  buffer 

JMP 

SHORT  RBR1 

;ptr  &  gat  another  char 

RRH2: 

STC 

;set  carry  flag 

JMP 

SHORT  RBB5 

;exit  finished  fila. 

RBB3 : 

MOV 

AL, OFFh 

;non  zero  *  end  of  fila 

MOV 

[ROF] , AL 

;mark  andoffila  true 

RB4: 

XOR 

AL,  AL 

; place  endoflina 

MOV 

[81] , AL 

; in  data  fila  buffar 

CLC 

; clear  carry  flag 

RSB5 : 

POP 

BP 

POP 

SI 

A-lll 


SUSP 


PROC 


RSF1 : 


RSF2: 
RSF3 : 
RSF4  t 


POP  DX 
POP  CX 
POP  BX 
POP  AX 
RIT 

RRADLINl 

Raad  a  lina  from  a  fila  into  tha  256  byta  'SFIBuf'  buffar. 

Input  ■  nona 

Output  a  sats  [SF1R0F}<>  0  whan  EndOfFIla  ia  raachad. 

Carry  flag  ■  fila  cloaaa  or  fila  ptr  alraady  at  RndOfFila. 

NOTKSt 

LinaFaada  (OAh)  and  HP  paga  braak  (D4h)  ara  convart  to  hax  0. 

Only  tha  lowar  aat  ASCII  charactara  ara  placad  in  tha  buffar. 

No  control  codaa  ate. 

Only  tha  firat  256  bytaa  of  tha  lina  ara  aavad  in  tha  buffar  but  tha 
procadura  will  kaap  raading  until  BndOfFila  or  an  OAh  or  D4h  ia  raachad. 


RKAD  SF1 

POSH 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

POSH 

SI 

POSH 

BP 

MOV 

AX, [SFlHd] 

CMP 

AX,  0 

;ia  tha  fila  opan? 

JZ 

RSF2 

; if  not  Kxit 

MOV 

BX,  AX 

jatora  fila  handla 

XOR 

AX,  AX 

MOV 

SI, Off aat  SFIBuf 

;mark  position  in  buffar 

MOV 

BP, Off aat  SFIBuf  +  255 

;mark  and  of  buffar 

CMP 

[SF1HOF] , AL 

» ia  ptr  at  andoffila 

JNZ 

RSF2 

jif  yaa  Rxit 

--raad  1 

byta  from  data  fila 

MOV  CX, 

1 

;raad  1  byta 

MOV 

AX, 3F00h 

jraad  fila  function  no 

MOV 

DX,  SI 

; buffar  ptr  to  DX 

INT 

21h 

;gat  byta 

JC 

RSF3 

;and  of  fila? 

CMP  AX, 

CX 

;did  it  raad  a  byta? 

JNZ 

RSF3 

; if  no  than  KndOfPila 

MOV 

AL, [SI] 

; gat  char  in  AL 

CMP 

AL, OAh 

;ia  it  tha  andoflina  ? 

JZ 

RSF4 

; if  YSS  axit 

CMP 

AL, 0D4h 

»ia  it  HP  paga  braak  ? 

JZ 

RSF4 

;if  YBS  axit 

CMP 

AL, 128 

;ia  8th  bit  on? 

JNC 

RSF1 

;if  yaa  raad  naxt  char? 

CMP  AL, 

32 

;ia  it  a  control  char? 

JC 

RSF1 

;if  yaa  raad  naxt  char 

CMP 

BP,  SI 

;ia  buffar  full  ? 

JC 

RSF1 

;if  yaa  raad  until  ODh 

INC 

SI 

jif  no  advanca  buffar 

JMP 

SHORT  RSF1 

;ptr  &  gat  anothar  char 

STC 

;aat  carry  flag 

JMP 

SHORT  RSF5 

>exit  finiahad  fila. 

MOV 

AL, OFFh 

;non  saro  ■  and  of  fila 

MOV 

[SF1HOF] , AL 

;mark  andoffila  trua 

XOR 

AL,  AL 

;placa  andoflina 

MOV 

[SI] , AL 

;in  data  fila  buffar 

CLC 

;claar  carry  flag 
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RSrSi  POP  BP 

POP  sx 

POP  DX 

POP  ex 

POP  BX 

POP  AX 

BIT 

HMDP  RIAD  SPl 


/Place  the  file  pointer  at  the  begining  of  the  open  file 
/  Input  *  e  valid  file  handle  in  AX 

/  Output  ■  Carry  flag  ■  error 

PROC  OOTO  TOP 

PUSH"  AX 
POSH  BX 

POSH  CX 

POSH  DX 

POSH  SX 

POSH  DX 

POSH  BP 

CMP  AX,  0 

JNZ  TOPI 

STC 

JMP  SHORT  TOP 2 

/ - place  file  pointer  to  the  beginning  of  the  file 

TOPI s  MOV  BX, AX 

XOR  AX, AX 

MOV  CX, AX 

MOV  DX, AX 

MOV  AX,4200h 

INT  21h 

JC  TOP  2 

XOR  AL,  All 

MOV  [BOP] , AL 

CXiC 

TOP 2 :  POP  BP 

POP  DX 

POP  SX 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RBT 

UNDP  OOTOTOP 

» 


ie  file  open? 
if  open  goto  next  teat 
alee  set  error  flag 
exit  on  error 

store  file  handle 
aero  register 
eat  offset  ■  0 
set  offset  »  0 
set  file  pointer  no. 
eat  to  beg.  of  file 
exit  if  error, 
zerp  to  register 
set  KndOfFile  *  False 


/Checks  [FileDr]  to  make  sure  there  is  *oom  for  data 
/  Input  ■  none 

/  assumes  [FileDr]  is  pointing  the  desired  drive 

/  Oa  default,  1  ■  A,  2  ■  B,  etc 

/  Output  m  Carry  flag  ■  if  not  enough  room 

PROC  ISFDIiL 

PUSH  AX 

POSH  BX 

POSH  CX 

POSH  DX 

POSH  BP 

MOV  DL, [FileDr]  ;get  file  drive  no. 

MOV  AX, 3600h  /disk  space  function 

XMT  21h  /get  disk  space 
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CMP 

AX,  OFFFFh 

jis  driva  valid? 

n 

ISF3 

/if  NO  axit  arror 

CMP 

BE, 2 

/avail  clustar  >  2 

JNC 

ISF4 

zyas  OKI  lots  of  room 

CALL 

FULLERR 

zalsa  inform  usar 

ZSF3 : 

8TC 

JMP 

SHORT  ISF5 

ISP4 1 

CLC 

IBF5: 

POP 

BP 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

z 

z 

Input  * 

nons 

> 

Output 

■  nons 

PROC 

PULL  ERR 

CALL 

CLEARMESSAGK 

MOV 

AL, [Warning] 

/warning  color 

MOV 

CL, [Color] 

zsava  original  color 

MOV 

[Color] , AL 

/sat  color 

MOV 

AX, 0209h 

/row  3 /Col  8 

CALL 

GOTOYX 

/ sat  cursor 

CALL 

CSTR  OUT 

/display  warning 

db 

'  Not  anough  Disk  Spacal  ' 

db 

'  Prass  Any  Xay  to 

Continua .  ' ,  0 

MOV 

[Color] , CL 

/rastora  original  color 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

GET  CHAR 

RET 

KNDP 

FULL  BRR 

ENDP 

ISFULL 

/ 

/ 

Input  m 

nona 

z 

Output 

■  carry  flag  ■  DOS  arror 

z 

Fila  handla  is  in 

[DATHd] 

z 

Fils  contains  saro 

bytes. 

/  WARNING :  this  procsadurs  will 

fila  with  tha  sama  name . 

PROC 

OPEN  NEW  DATA  FILE 

PUSH 

AX 

/save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

AX,  AX 

/zero  to  ax  register 

MOV 

[DATHd] , AX 

/ sat  fila  handla  to  0 

MOV 

AX,  DS 

/assign  BS  to  tha 

MOV 

BS,  AX 

/ data  section 

MOV 

AX, Off sat  Saarch 

/ptr  to  path  +  file  name 

MOV 

CX,  AX 

/save  str  baginning  ptr 

CALL 

STR  LENGTH 

/gat  length  of  string 

SUB 

AX, 4 

/length  -  4  » 

ADD 

AX,  CX 

/ptr  to  tha  period 

MOV 

DI,AX 

/destination  ptr 

MOV 

SI, Off sat  DATTyp 

/ptr  to  fila  type  name 

CLD 

/auto  inc  SI  &  DI 

MOV 

CX,  5 

/number  byte  to  move 

REP 

MOVSB 

/move  typo  to  Search 

MOV 

AX,  Offsat  Saarch 

/ptr  to  name  of  fila 

CALL 

CREATE 

/open  an  empty  fila 
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CDFli 


ENDP 


JC  CDF1 

MOV  [DATHd] , BX 

CLC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RBT 

OPEN  NEW  DATAFILE 


; exit  on  DOS  error 
istvt  file  handle 
; clear  carry  •  data  OKI 
i restore  registers 


Input  m  none 

Output  ■  carry  flag  •  DOS  error 
WARN! NO:  this  proceedure  will  erase  an  existing  file. 


PROC 


DDF1: 


END* 


DELETE 

DATA  FILE 

POSH 

'  AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

MOV 

AX.DS 

MOV 

ES,  AX 

MOV 

AX, Offset  Search 

MOV 

CX,  AX 

CALL 

STR  LENGTH 

SOB 

AX, 4 

ADD 

AX,  CX 

MOV 

DI.AX 

MOV 

SI, Offset  DATTyp 

CLD 

MOV 

CX,  5 

REP 

MOVSB 

MOV 

AX,  Offset  Search 

CALL 

DELETE  FILE 

JC 

DDF1 

XOR 

AX,  AX 

MOV 

[DATHd] , AX 

MOV 

[MaxID] ,  AX 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

DELETE 

DATA  FILE 

;save  registers 


;  assign  ES  to  the 
;data  section 
}ptr  to  path  +  file  name 
tsave  str  beginning  ptr 
; get  length  of  string 
/ length  -  4  -  ».■ 
jptr  to  the  period 
; destination  ptr 
;ptr  to  file  type  name 
;auto  inc  SI  &  DI 
; number  byte  to  move 
; move  type  to  Search 
;ptr  to  name  of  file 
; erase  file 
; exit  on  DOS  error 
;xaro  to  ax 
;zero  file  handle 
;zero  no  of  ID's 
; clear  carry  m  data  OK! 

; restore  registers 


Does  config  information  call  for  this  answer  file, 
input  -  AX  ■  file  type  number 

5»F081  4-POS2  3* PER  2 -SUP  and  laSUB 
output  -  cf  -  NOT  NEEDED 


PROC 


ISNIj 


IS  FILSNXXDED 

POSH  AX 

POSH  BX 

POSH  CX 

POSH  DX 

MOV  CX* AX 

MOV  BX. Offset  CFGTbl 

MOV  AX, 4 

CMP  NOR D  PTR  [BX] *  8 

JZ  ISN2 

CMP  WORD  PTR  tBX] , CX 


;save  registers 


;save  type  in  cx 
;ptr  to  beg  of  table 
; offset  to  next  entry 
; is  it  end  of  table? 

;  if  YES  exit  not  needed 
;is  the  file  needed? 
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ISN2  : 
ISN3  : 


SKDP 


JZ 
ADD 
JMF 
STC 
POP 
POP 
POP 
POP 
RET 

IS  FILE  NEEDED 


ISM3 
BX,AX 
SHORT  XSN1 

DX 

cx 

BX 

AX 


/if  YES  exit  needed 
; point  to  next  entry 

;  carry  flag  ■  MO 
; restore  registers 


; . Open  files.  DISPLAY  ERROR  MESSAGE 

; 

;  Input  >  AX  >  ptr  ASCIXZ  file  type. 

;  Assumes  [Search]  already  has  a  correct  path  and  file  name. 

; 

j  Output  a  Carry  flag  set  if  an  opening  error  AX  a  error 

/  file  sise  in  AX  and  DX;  File  Handal  in  BX. 

;  File  ptr  at  the  beginning  of  the  file. 

;  Note:  Registers  are  not  saved. 

; 

PROC  OPENFILB 

MOV  BX, AX 

MOV  AX, DS 

MOV  ES , AX 

MOV  AX, Offset  Search 

MOV  CX, AX 

CALL  STRLENGTH 

SOB  AX, 4 

ADD  AX, CX 

MOV  DI, AX 

MOV  SI.BX 

CLD 

MOV  CX, 5 

REP  MOVSB 

MOV  AX,  Offset  Search 

CALL  OPEN 

RET 

ENDP  OPENFILB 

; 

/  File  type  numbers:  5aPOSl  4aPOS2  3aPER  2 a SUP  and  laSDB 
; 

PROC  OPEN  ANSWER  FILES 


POSH 

AX 

/save  registers 

POSH 

BX 

POSH 

CX 

POSH 

DX 

XOR 

AX, AX 

/row  0  and  column  0 

CALL 

MENOBOX 

/draw  top  menu  box 

-the  SF1 

file  must  exist  for 

the  program  to  build  a  new  data  file 

MOV 

AX, Offset  SFITyp 

/open  SF1  snser  file 

CALL 

OPEN  FILE 

JC 

OAF5 

/if  error  exit 

MOV 

[SFlHdJ , BX 

/save  file  handle 

XOR 

AL,  AL 

; zero  to  al  and 

MOV 

[EOF] , AL 

/ set  BndOfFile  false 

-open  SF2 

if  needed 

MOV 

AX, 4 

/look  for  SF2  type 

CALL 

IS  FILE  NEEDED 

/is  SF2  needed  ? 

JC 

OAF1 

/if  NO  check  next  file 

MOV 

AX, Offset  SF2Typ 

/open  SF1  anser  file 

;save  file  type  offset 
/assign  ES  to  the 
;data  section 
;ptr  to  path  +  file  name 
;save  str  beginning  ptr 
;get  length  of  string 
/ length  -  4  a  ■ . ■ 

;ptr  to  the  period 
; destination  ptr 
; source  ptr 
;auto  inc  SI  &  DI 
/number  byte  to  move 
/move  type  to  Search 
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CALL 

OPEN  FILE 

JC 

OAF  5 

lit  error  exit 

MOV 

[8F2Hd] , BX 

;seve  file  handle 

J - 

-open  PER 

if  needed 

0AF1: 

MOV 

AX,  3 

;look  for  PER  type 

CALL 

IS  FILE  NEEDED 

> is  PER  needed  ? 

JC 

QAF2 

jif  MO  check  next  file 

MOV 

AX, Offset  PERTyp 

;open  PER  anser  file 

CALL 

OPEN  FILE 

JC 

OAF2 

;if  not  avail,  no  error 

MOV 

tPERHd] , BX 

;*ave  file  handle 

> - 

-open  SUP 

if  needed 

OAF2 : 

MOV 

AX,  2 

;look  for  SUP  type 

CALL 

IS  FILE  NEEDED 

; is  SUP  needed  ? 

JC 

OAF3 

;if  NO  check  next  file 

MOV 

AX, Offset  SUPTyp 

; open  SUP  answer  file 

CALL 

OPEN  FILS 

JC 

OAF3 

;if  not  avail,  no  error 

MOV 

[SUPHd] , BX 

i save  file  handle 

l - 

-open  SUB 

if  needed 

OAF3 : 

MOV 

AX,  1 

j look  for  SUB  type 

CALL 

IS  FILE  NEEDED 

;is  SUB  needed  ? 

JC 

OAF4 

;if  NO  exit  no  error 

MOV 

AX, Offset  SUBTyp 

;open  SUB  answer  file 

CALL 

OPEN  FILE 

JC 

OAF4 

? if  not  avail,  no  error 

MOV 

[SUBHd] , BX 

;s ave  file  handle 

OAF4 : 

CLC 

j clear  carry  -  data  OKI 

OAF5 : 

POP 

DX 

; restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

UNDP  OPEN  ANSWER  FILES 


Add  up  the  answer*  Cor  a  given  factor  for  the  ID  stored  in  the  BX  buffer 

Input  ■  SI  ■  ptr  into  Config  table  DI  *  ptr  into  OutBuf 
BP  ■  ptr  into  question  no  string  in  heap 
BX  ■  ptr  into  answer  buffer:  SF1,  SF2  ,PER,  SUP,  or  SUB. 

MOTE:  PerBuf,  SupBuf  and  SubBuf  hold  up  to  5  records 
CX  m  stores  answer  total  in  CH  and  number  of  answers  in  CL 
Output  ■  AH  ■  total  of  answers 

AL  ■  no.  of  questions  answered. 

If  a  50%  were  not  answered  then  AX  «  0 


SET  ANSWERS 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

SI 

PUSH 

DI 

PUSH 

BP 

is  this 

a  matching  ID  to  SFIBuffer  ? 

MOV 

CX,  20 

;loop  counter 

MOV 

DI, Of fact  SFIBuf 

;ptr  to  SF1 

MOV 

SI,BX 

;ptr  to  data  file  line 

CLD 

;auto  inc  DI  and  SI 

REPZ 

CMPSB 

;are  the  bytes  ■  ? 

JZ 

QAN2 

I  if  YES  continue 

XOR 

AX, AX 

; return  0 , 0 

STC 

;else  EXIT  no  more 
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JMP  GAM7  j  ID'  ■  war*  £ound. 

i - gat  th*  anawara  from  on*  anawar  ahaat  for  on*  data  point 


GAM2: 

XOR 

ex,  ex 

{zero  naw  total* 

XOR 

DX,DX 

{counter:  no.  of  qua*. 

ADD 

BX,20 

;akip  ID  atring 

GAN3: 

CMP 

BITS  PTR  [BP] , 0 

;ia  it  and  of  atring  ? 

JZ 

GAN5 

{normal  exit  of  loop 

MOV 

AL, [BP] 

{gat  quaation  number 

DSC 

AL 

{quaation  no  -  1 

XOR 

AH, AH 

{convert  to  16  bita 

POSH 

BX 

jaava  atarting  poaition 

ADD 

BX,  AX 

{ptr  to  anawar  in  buf 

MOV 

AH, [BX] 

{gat  anawar 

POP 

BX 

{reator*  atarting  poait. 

AMD 

AH, OCPh 

{aacii  to  hex  number 

JZ 

GAN4 

{if  aero  akip  to  amall 

CMP 

AH,  6 

{ ia  anawar  <  6  ? 

JMC 

GAN4 

{if  NO  akip  to  largo 

INC 

CL 

{no  of  anawara  counter 

ADD 

CH,  AH 

{add  anawar  to  total 

GAN4  s 

INC 

BP 

{ptr  next  config  anawar 

IMC 

DX 

{no  of  quaation*  countar 

JMP 

SHORT  GAN3 

;gat  tha  next  anawar 

» - 

--war*  50% 

of  th*  quaation  anawarad? 

GAMS : 

XOR 

AX,  AX 

{zero  ax  ragiatar 

INC 

DX 

{for  rounding 

SHR 

DL,  1 

{no  of  qu*e./2 

CMP 

CL,DL 

{did  anew.  50%  ? 

JC 

GAN6 

{if  NO  don't  uaa  anawara 

MOV 

AX,  CX 

{return  total* 

GAMS: 

CLC 

{ clear  carry  flag 

GAN7: 

POP 

BP 

POP 

DI 

POP 

SI 

POP 

DX 

POP 

ex 

POP 

BX 

RKT 

BMDP 

GKTANSWHRS 

1 

; 

Compute  tha  maana  acora  and  cod*  th*  output 

valua 

/ 

i 

Input 

CX  ■  atoraa  anawar  total  in 

CH  and  number  of  anawara  in  CL 

i 

Output 

■  AL  -  coded  data  point 

i 

•xaapla :  15h  ■  decimal  21 

which 

maana 

a  acora  of  2.1 

PROC 

COD8  MKAN 

POSH 

BX 

POSH 

ex 

POSH 

DX 

MOV 

AX,  CX 

{count*  to  AX  ragiatar 

MOV 

BX,  CX 

{* av*  a  copy  in  BX 

CMP 

CL,  0 

{war*  anawara  found? 

JZ 

COM2 

{if  NO  anawar  «  0 

MOV 

CH, OAh 

{divaor  6  multiplier 

MOV 

AL,BH 

{total  to  ax 

XOR 

AH, AH 

{convert  to  16  bita 

DIV 

CL 

{total/no.  of  item* 

MOV 

DL,  AH 

jaava  ramandar  in  ch 

MOL 

CH 

jax  ■  maan  *  10 

XCHG 

AX,DX 

{remainder  to  al 

MOL 

CH 

{ax  -  ramaindar  *  10 

DIV 

CL 

{al  ■  tantha 
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{remainder  to  al 
; ax  -  ramaindar  *  10 
;al  ■  tantha 


SHR 

CL,  1 

7divsor/2  ♦  1 

INC 

CL 

7  is  used  for  rounding 

CMP 

AH,  CL 

7 is  resMinder  <.05  ? 

ore 

COM1 

7  if  YES  do  not  round 

INC 

AL 

7  round  answer  remainder 

C0M1: 

ADD 

AL.DL 

7 add  units  to  tenths 

XOR 

AH,AH 

7  convert  to  16  bits 

COM2: 

CLC 

7 clear  carry  flag 

POP 

DX 

POP 

CX 

POP 

BX 

RXT 

KMDP 

7 

CODE 

MEAN 

7 

7 

7  Find 

an  Id 

number  that  matches  the  ID  in  SFIBuf 

7 

input  ■ 

AX  ■  file  handle 

7 

output 

Carry  flag  -  MO  FIND 

PROC 

FIND 

ID 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX,AX 

7  save  file  handle 

Fill: 

MOV 

AX,BX 

7 restore  file  handle 

CALL 

RXAD  LIME 

7l  line  from  data  file 

JNC 

FII2 

7 not  BndOfFile 

MOV 

AL/OFFh 

7mark  BndOfFile  true 

MOV 

[HOF] , AL 

70  0  »  True 

7 - 

-has  ths  HSC  key  boon  pressed  ? 

FII2: 

CALL 

IS  ESC 

7  is  BSC  key  presses 

JC 

FII3 

7  cf  means  abort  process 

J - 

-is  it 

the  correct  ID? 

MOV 

CX,  20 

7  loop  counter 

MOV 

DI, Offset  SFIBuf 

7ptr  to  SF1 

MOV 

SI, Offset  FilBuf 

7ptr  to  data  file  line 

CLD 

7 auto  inc  DI  and  SI 

REPZ 

CMPSB 

7 are  the  bytes  «  ? 

CLC 

7 clear  carry  flag 

«7Z 

FII3 

7  if  YES  exit  FOUND 

CMP 

BYTE  PTR  [EOF] , 0 

7  is  it  BndOfFile  ? 

JZ 

Fill 

7  if  MO  read  next  line 

STC 

7 exit  MOT  FOUND 

FII3 : 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

UNDP 

FIND 

ID 

;  Copy  ASCZIZ  string  from  FilBuf  to  anothsr  location  in  ths  data  segment 
7  Input:  AX  -  destination  offset 

7  Output:  Mona 

» 

PROC  C0PY_8TRIH0 

PUSH  AX 
PUSH  BX 
PUSH  CX 
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rant 

DX 

MOV 

DI,  AX 

jdi  •  daatination 

MOV 

AX,  DS 

;aat  aagmanta  IS  -  DS 

MOV 

IS, AX 

MOV 

8I,0f faet  TilBuf 

;ai  ■  aourco 

CPY1: 

MOV 

AL, [SI] 

/ gat  byta 

CMP 

AL,  0 

jia  it  andof  atrlng 

jz 

CPY2 

>ia  yaa  axit 

MOV 

[DI] , AL 

INC 

SI 

INC 

DI 

JMP 

CPY1 

CPY2: 

CLC 

/claar  carry  flag 

POP 

DX 

POP 

cx 

POP 

BX 

POP 

AX 

wrr 

SNDP 

COPYSTRING 

9 

;  Chmck  •ach 

anawer  file  for  all  ID' 

a  matching  tha 

currant  ID  in  SFIBuf 

i 

Input  > 

If  a  fila  la  naadad  it 

will  ba  opan  thua  ita  handle  <>  0 

i 

Output : 

Nona 

t 

PROC 

LOCATE 

ALL  IDS 

PUSH 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

MOV 

AX, [SF2Hd] 

;gat  aalf  II  handla 

CMP 

AX,  0 

; ia  it  opan? 

JZ 

LAIO 

}i£  NO  goto  naxt  fila 

MOV 

BYT!  PTR  [IOF] , 0 

;aat  HndOfFila  falaa 

CALL 

GOTO  TOP 

;fila  ptr  to  TopOfFile 

CALL 

FIND  ID 

; search  for  the  ID 

JC 

LAIO 

»if  not  found  naxt  fila 

MOV 

AX,Offaat  SF2Buf 

;ptr  to  buffar 

CALL 

COPY  STRING 

;copy  to  aalf  2  buffar 

LUO: 

CMP 

WORD  PTR [DatHd] , 0 

; abort  tha  proccaaa? 

JNZ 

LAI1 

; if  NO  continue 

JMP 

LAI  7 

;alaa  axit  abort 

LAI1: 

MOV 

AX, [PBRHd] 

;get  paar  handla 

CMP 

AX,  0 

;ia  it  opan? 

JZ 

LAI  3 

;if  NO  goto  naxt  fila 

MOV 

BX,  AX 

;a ava  handla  in  bx 

MOV 

DX,Offaat  PBRBuf 

jptr  to  buffar 

MOV 

CX,  8 

;loop  counter 

MOV 

BYT!  PTR  [IOF] , 0 

;aet  RndOfFila  falaa 

CALL 

GOTO  TOP 

;fila  ptr  to  TopOfFile 

LAI  2 : 

MOV 

AX,BX 

;get  paar  handla 

CALL 

FIND  ID 

;aearch  for  tha  ID 

JC 

LAI3 

;if  not  found  naxt  fila 

MOV 

AX,DX 

;ptr  into  paar  buffar 

CALL  COPY  STRING 

jeopy  to  par  buffar 

INC  DH 

;ptr+256-naxt  paar  buf 

LOOP 

LAI  2 

;atop  loop  after  5  finaa 

LAI  3 : 

CMP 

WORD  PTR [DatHd] , 0 

; abort  tha  proccaaa? 

JZ 

LAI  7 

jlxit  if  abort 

MOV 

AX, [SUPHd] 

;get  auperior  handla 

CMP 

AX,  0 

>ia  it  opan? 

JZ  LAI5 

;if  NO  goto 

naxt  fila 

MOV 

BX,  AX 

;aave  handla  in  by 
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MOV 

DX, Offset  SUPBuf 

MOV 

CX,8 

MOV 

BYTE  PTR  [SOP] , 0 

CALL 

GOTO  TOP 

LAI  4 ; 

MOV 

AX,  BX 

CALL 

FIND  ID 

JC  LAI 5 

MOV 

AX,DX 

CALL 

COPY  STRING 

INC 

DH 

LOOP 

LAI  4 

LAI  5 1 

CMP 

WORD  PTR [DatHd] , 0 

JZ 

LAI  7 

MOV 

AX, [SUBHd] 

CMP 

AX,  0 

JZ 

LAI  7 

MOV 

BX,  AX 

MOV 

DX, Offset  SUBBuf 

MOV 

CX,  8 

MOV 

BYTE  PTR  [EOF] , 0 

CALL 

GOTO  TOP 

LAI  6 : 

MOV 

AX,BX 

CALL 

FIND  ID 

JC 

LAI  7 

MOV 

AX,DX 

CALL 

COPY  STRING 

INC 

DH 

LOOP 

LAI  6 

LAI7  / 

CMP 

WORD  PTR [DatHd] , 0 

JNZ 

LAI  8 

STC 

JMP 

SHORT  LAI 9 

LAI  8 : 

CLC 

LAI9: 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

UNDP 

/ 

LOCATE 

ALLIDS 

/ 

/  Do  you  want  to  continue  ? 

/ 

Input  - 

none 

/ 

Output 

■  carry  flag  «  NO 

PROC 

WARNING 

MESS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLSAF.  MSS  SAGE 

MOV 

CL, [Color] 

MOV 

AL,  [K  iming] 

MOV 

[Color] , AL 

MOV 

AX, 0109h 

CALL 

GOTOYX 

CALL 

CSTR  OUT 

db 

"  WARNING:  Creating  a 

db 

"several  hours.  ",0 

MOV 

AX, 0214h 

CALL 

GOTOYX 

CALL 

CSTR_OUT 

db 

"  Do  you  want  to  begin 

jptr  to  buffer 
;loop  counter 
/set  EndOfFile  false 
/file  ptr  to  TopOfPile 
z get  superior  handle 
/search  for  the  ID 
;if  not  found  next  file 

;ptr  into  superior  buf 
/copy  to  sup  buffer 
/ptr+256-next  sup  buf 
/stop  loop  after  5  fines 
/abort  the  proccess? 
/Exit  if  abort 
/ get  subordinate  handle 
/is  it  open? 

/if  NO  goto  exit 
/save  handle  in  bx 
/ptr  to  buffer 
/loop  counter 
/set  EndOfFile  false 
/file  ptr  to  TopOfPile 
/get  subordinate  handle 
/search  for  the  ID 
/if  not  found  exit 
/ ptr  into  superior  buf 
/ copy  to  sup  buffer 
zptr+256anext  sub  buf 
/stop  loop  after  5  fines 
/abort  the  proccess? 
/exit  clear  carry  flag 
/else  exit  abort 


/store  original  Color 
/warning  color 
/set  color 
/ row  3/Col  12 
/set  cursor 
/display  warning 

new  data  file  could  take  ■ 

/row  3 /Col  12 
/set  cursor 
/display  warning 

the  process  ?  " 
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db 

■  T/M  ",0 

MOV 

(Color]  ,  CL 

/restore  original  color 

CALL 

HXDB  CUR 

MARI: 

CALL 

BRR  SOUND 

CALL 

OIT  CHAR 

AMD 

AL,5Ph 

j  turn  off  bit  6  6  8 

CMP 

AL, 'M' 

jia  it  No? 

JNZ 

MAR2 

/if  NO  goto  naxt  tast 

8TC 

;alaa  aat  carry  flag 

JMP 

SHORT  MAR3 

; and  axit 

WAR2 : 

CMP 

AL, 'Y' 

; is  it  Yaa? 

JMZ 

MARI 

;if  not  YBS  loop 

CALL 

CLBARMBSSAGB 

; empty  massage  lina 

CLC 

;claar  cf  -  continua 

WAR3: 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

UNDP 

WARNING 

MBSS 

/ 

/  DO 

you  want  to  abort  tha 

data  fila 

? 

; 

Input  ■ 

nona 

; 

Output  > 

■  carry  flag  ■ 

NO 

PROC 

ABORT  MRSS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

SI 

PUSH 

DI 

PUSH 

BP 

CALL 

CLKAR_MBS  SAOB 

MOV 

CL, [Color] 

; a tor a  original  Color 

MOV 

AL, [Warning] 

; warning  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX, 020Ah 

jrow  3/Col  12 

CALL 

OOTOYX 

;aat  cursor 

CALL 

CSTROUT 

; display  warning 

db 

"  Do  you  want 

to  cancal 

tha 

craate  data  fila  command  ?  " 

db 

"  Y/N  -,0 

MOV 

[Color] , CL 

;raatora  original  color 

CALL 

HIDR_CUR 

ABOl: 

CALL 

BRR  SOUND 

CALL 

GBT  CHAR 

AMD 

AL, 5Fh 

ttura  off  bit  668 

CMP 

AL,  'Y' 

>ia  it  Y as? 

JMZ 

AB02 

; if  not  Yaa  goto  next 

CALL 

DBZiBTB  DATA  7ILB 

; erase  tha  data  fila 

STC 

;alse  sat  clear  carry 

JMP 

SHORT  AB03 

;flag  and  exit 

AB02 : 

CMP 

AL,  'N' 

; is  it  NO? 

JMZ 

ABOl 

;if  not  NO  loop 

CALL 

CLBARMBSSAOB 

;ampty  massage  lina 

CLC 

/clear  cf  *  continua 

AB03  t 

POP 

BP 

POP 

DI 

POP 

SI 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 
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RXT 

XMDP  ABOUT  BBSS 


Instructions  for  ths  Croats  data  conund. 


I 

Input  ■ 

i  Mono 

1 

Output 

■  Mono 

PROC 

SATA  INSTRU 

POSH 

AX 

leave  registers 

POSH 

BX 

POSH 

ex 

POSH 

DX 

MOV 

AX, ISOOh 

/row  21, column  0 

CALL 

MKNO  BOX 

; draw  menu  box 

MOV 

CL, [Color] 

/get  assigned  color 

MOV 

AL, [Noraal] 

/get  color 

MOV 

[Color] ,AL 

/set  color 

MOV 

AX, OAOBh 

/ row/ column 

CALL 

OOTOYX 

CALL 

CSTR  OUT 

db 

'Searching  the 

answer  files  for 

ID:  ',0 

MOV 

AX, OCOBh 

/ row/ column 

CALL 

OOTOYX 

CALL 

CSTR  OUT 

db 

"The  number  of 

Self  ID's  already  processed  -  ",0 

MOV 

AL, [Menu] 

/get  menu  color 

MOV 

[Color] ,AL 

/set  menu  color 

MOV 

AX, 160Bh 

/  row/ column 

CALL 

OOTOYX 

CALL 

CSTR  OOT 

db 

'Press  the  <Bsc>  key  to  cancel  the  create  ' 

db 

'data  file  command. ',0 

CALL 

HIDX  COR 

MOV 

[Color] , CL 

/ restore  assigned  color 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

BNDP 

SATA_INSTRO 

I 

1 

Has  ths  Xsc  ksy  boon  prsss 

ed? 

/ 

Input  ■ 

none 

/ 

Output  ■ 

carry  flag  if  abort  -  yes 

PROC 

IS  XSC 

POSH 

AX 

POSH 

BX 

POSH 

CX 

POSH 

DX 

J - 

--Chock  keyboard  buffer  to 

>  see  if  the  <Bsc> 

key  been  pressed? 

MOV 

AX,0600h 

/DOS  function  #  6 

MOV 

DL, OFFh 

/read  char  from  key- 

INT 

21h 

/board  buffer. 

J2 

IXS1 

/NO  key  pressed  continue 

CMP 

AL, lBh 

/was  it  the  <BSC>  key? 

JNZ 

IXS1 

/if  NO  continue 

CALL 

ABORT  MXSS 

/if  YBS  inform  user 

JC 

IBS  2 

/carry  flag  ■  abort 

1181: 

CLC 

/clear  carry  flag 

1X82 1 

POP 

DX 

POP 

CX 

A-123 


pop  mx 

POP  AX 

UT 


nop  isjmc 

i 

t - instructions  for  ths  Croats  data  cuniand. 

;  Input  a  Hons 

i  Output  a  Nona 

i 

PROC  DISPLAY  PROGRESS 


PUSH  AX 

POSH  BX 

POSH  CX 

POSH  DX 

MOV  CL, [Color] 

MOV  AL, [Normal] 

MOV  [Color]  ,AL 

MOV  AX, 0A2fh 

rat.T.  OOTOYX 

MOV  AX, Offset  OutBuf 

MOV  DX,  AX 

ADD  AX, 20 

MOV  BX, AX 

MOV  BYTK  PTR  [BX] , 0 

MOV  AX.DX 

CALL  DSTROOT 

MOV  AX, 0C38h 

CALL  OOTOYX 

MOV  AX, [MaxID] 

MOV  BX, AX 

CALL  BINOOT 

CALL  HIDKCOR 

INC  BX 

MOV  [MaxID], BX 

MOV  [Color], CL 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RST 

KHDP  DISPLAYPROGRXSS 

t 

t 

t  Input  a  none 

i  Output  a  none 

PROC  PILX_RRR 

PUSH  AX 

PUSH  BX 

POSH  CX 

PUSH  DX 

rir.T,  CLRAR_MBSSAOB 

MOV  AL, [Warning] 

MOV  CL, [Color] 

MOV  [Color] , AL 

MOV  AX,0207h 

CALL  OOTOYX 

CALL  CSTROUT 

db  '  Has  ths  "Pile"  command  to  open  ths 

db  '  Press  Any  Key.  ',0 

MOV  [Color], CL 

rar.T.  HIDE  CUR 


; save  registers 


; get  assigned  color 
;get  color 
;set  color 
; row/ column 

;ptr  to  ID  string 
i store  start  of  buffer 
;ptr  to  RndOfString 
/ ptr  to  bx  register 
» place  KndOfStr  marker 
i restore  start  ptr 
; display  ID  string 
; row/column 

;  get  maxiawm  ID 
t store  maximum  ID 
; display  value  to 
; the  screen 
; add  1  to  maximum 
; save  new  value 
j restore  assigned  color 
; restore  registers 


; warning  color 
;save  original  color 
;set  color 
;row  3 /Col  8 
;sat  cursor 
; display  warning 
data  file.' 

; restore  original  color 
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CALL  DUt  80UND 
CALL  OAT- CHAR 

POP  DX  ” 

POP  CX 

POP  BX 

POP  AX 

RIT 

BIDP  PILE  KRR 


Close  all  answer  files, 
input  ■  non# 

output  ■  dos  arror  nessage 

HOT! i  Thia  subroutine  always  clears  the  carry 
Answer  Fils  type  riant  a  s  P0S1  P0S2  PXR  SUP  and  SOB 


PROC 


CAF1: 


CAF2 1 


CAF3  s 


CAF4 1 


CAPS  < 


CLOSS  ANSWER  PILES 


POSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

bx, offset 

SF1HD 

MOV 

AX,  [BX] 

CMP 

AX,  0 

JZ 

CAF1 

CALL 

CLOSS 

JC 

CAP1 

XOR 

AX,  AX 

MOV 

[BX] , AX 

MOV 

BX, Offset 

SF2Bd 

MOV 

AX, [BX] 

CMP 

AX,  0 

JZ 

CAF2 

CALL 

CLOSS 

JC 

CAP2 

XOR 

AX,  AX 

MOV 

[BX]  ,  AX 

MOV 

BX, Offset 

PBRHd 

MOV 

AX, [BX] 

CMP 

AX,  0 

JZ 

CAF3 

CALL 

CLOSS 

JC 

CAF3 

XOR 

AX,  AX 

MOV 

[BX] , AX 

MOV 

BX, Offset 

SUPHd 

MOV 

AX, [BX] 

CMP 

AX,  0 

JZ 

CAF4 

CALL 

CLOSS 

JC 

CAF4 

XOR 

AX,  AX 

MOV 

[BX]  ,  AX 

MOV 

BX, Offset 

SUBHd 

MOV 

AX,  [BX] 

CMP 

AX,  0 

JZ 

CAF5 

CALL 

CLOSS 

JC 

CAF5 

XOR 

AX,  AX 

MOV 

[BX]  ,  AX 

CLC 


flag 


;save  registers 


ptr  to  file  handle 
get  file  handle 
is  file  open 
if  NO  goto  next  file 
close  the  file 
if  Dos  error  next  file 
xero  to  ax 
nark  file  closed 
ptr  to  file  handle 
get  file  handle 
is  file  open 
if  NO  goto  next  file 
close  the  file 
i  if  Dos  error  next  file 
xero  to  ax 
mark  file  closed 
;ptr  to  file  handle 
iget  file  handle 
>is  file  open 
'if  NO  goto  next  file 
iclose  the  file 
'if  Dos  error  next  file 
ixero  to  ax 
inark  file  closed 
rptr  to  file  handle 
rget  file  handle 
ris  file  open 
rif  NO  goto  next  file 
}  close  the  file 
>if  Dos  error  next  file 
'  xero  to  ax 
mark  file  closed 
iptr  to  file  handle 
;get  file  handle 
;  is  file  open 
;  if  NO  goto  next  file 
;  close  the  file 
;if  Dos  error  next  file 
;xero  to  ax 
;nark  file  closed 
j clear  carry  -  data  OKI 
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irutor*  registers 


POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

CLOSI 

ANSMXR  FZLXS 

I  Are  the  first  20  characters  of  the  line  valid  ZD  characters? 
i  That  means  digits, spaces, or  upper  case  letters. 


1 

input  m 

AX  -  ptr 

to  input  buffer 

» 

output 

■  cf  if  not  a  valid  ZD  or  if  all 

20  characters  are  spaces. 

PROC 

IS  ID 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

CX,  20 

; loop  counter 

MOV 

BX,  AX 

iptr  to  beg  of  table 

XOR 

AX,  AX 

;set  char  count  ■  0 

ZSI1: 

CMP 

BYTR  PTR 

[BX]  ,0 

; is  it  end  of  line? 

JZ 

ISZ8 

; if  YHS  exit  FALSH 

CMP 

BYTR  PTR 

[BX] ,2 Oh 

t is  it  a  space? 

JZ 

ISI7 

jif  YHS  goto  next  byte 

CMP 

BYTH  PTR 

[BX] ,'0' 

>is  it  <  0 

JC 

ISI8 

jif  YHS  exit  FALSH 

CMP 

BYTH  PTR 

[BX] , ' 9' +1 

; is  it  a  ascii  digit? 

JC 

ISI6 

;if  YHS  goto  next  byte 

CMP 

BYTH  PTR 

[BX] ,'A' 

)is  it  <  A 

JC 

ISI8 

; if  YHS  exit  FALSH 

CMP 

BYTH  PTR 

[BX] ,'Z'+1 

f is  upper  case  letter? 

JMC 

ISI8 

j if  NO  exit  False 

ZSZ6 : 

me 

AX 

; count  character 

ZSZ7 : 

me 

BX 

jptr  to  next  byte 

LOOP 

Z8I1 

;loop  20  times 

CMP 

AX,  0 

;were  any  chars  counted? 

JNZ 

ISI9 

;if  <>  0  exit  OKI 

ZSZ8: 

STC 

t  carry  flag  -  NO  ID 

ZSI9: 

POP 

DX 

1  restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

KNDP 

IS  ID 

;Read  a  record  from  the  DAT  file  to  the  SFIBuf. 

;  Input  m  AX  ■  record  number  (1  to  MaxXD) 

t  Output  ■  Carry  flag  ■  error 

;  Note:  reads  to  the  [SFIBuf]  because  the  normal  input  [FilBuf] 

;  is  being  used  to  hold  the  strings  to  be  printed. 

PROC  RKADDATRKC 
PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

PUSH  BP 

MOV  BP, AX  ;save  Rec  Number 

; - Is  record  number  in  range  ? 

DHC  AX 

JC  RDR2 
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; is  rec  number  ■  0  ? 
;if  Yes  exit  error 


J ---- 
RDR1 1 


; 


RDR2 1 


RDR3: 


SMDP 


CMP 

AX, [Maxld] 

/is  rac  no.  to  larga  ? 

JC 

RDR1 

;if  MO  goto  next  tast 

STC 

;a Isa  sat  arror  flag 

JMP 

SHORT  RDR2 

/exit  on  arror 

position 

tha  DATA  fila  pointar. 

MOV 

CX, [DRacLn] 

/get  langth  of  aach  rac 

MOL 

CX 

/compute  off sat  in  fila 

MOV 

CX,  DX 

;high  word  of  off sat 

MOV 

DX,  AX 

; low  word  of  offset 

MOV 

BX, [DATHd] 

;gat  fila  handle 

MOV 

AX,4200h 

: sat  fila  ptr  function 

IMT 

21h 

;aet  pointar 

JC 

RDR2 

; exit  if  arror. 

road  tha 

racord  into  tha  fila  buffar. 

MOV 

AX,3P00h 

/ read  fila  function  no 

MOV 

CX, [DRacLn] 

/ number  of  bytes  to  read 

MOV 

DX, Off sat  SFIBuf 

/ptr  to  destination 

IMT 

21h 

;read  tha  racord 

CMP 

AX,  CX 

/was  tha  read  complete? 

JZ 

RDR3 

; exit  if  MO  arror 

CALL 

CLEARMESSAOX 

MOV 

CL, [Color] 

/store  original  Color 

MOV 

AL, [Warning] 

/ warning  color 

MOV 

[Color] , AL 

/set  color 

MOV 

AX, 0207h 

/row  /Col 

CALL 

GOTOYX 

;aat  cursor 

CALL 

CSTRODT 

/display  warning 

db 

■  ERROR  raading  Data  fila  racord:  ",0 

MOV 

AX,  BP 

/get  record  number 

CALL 

BINODT 

/sand  number  to  screen 

CALL 

CSTRODT 

db 

*.  Prass  any  kay  to  Abort.  *,0 

MOV 

[Color] ,CL 

/restore  original  color 

CALL 

HIDE  CUR 

CALL 

BRRSODND 

CALL 

OETCHAR 

STC 

POP 

BP 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

R8T 

READ  DAT  RRC 

Read  a  aavan  byta  racord  from  tha  rank  file. 

Input  ■  nona  (aaaumaa  fila  ptr  is  in  tha  corract  position) 
Output  «  Carry  flag  «  arror 

Not* :  raada  to  tha  [OutBuf]  baeauaa  tha  normal  input  [FilBuf] 
ia  baing  uaad  to  hold  tha  strings  to  bo  printad. 


PROC  READ  RNK  RRC 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

read  : 

five  bytes  from  tha  rank  file. 

MOV 

AX, 3F00h 

/read  fila  function  no 

MOV 

BX, [RHXHd] 

/gat  rank  fila  handle 

MOV 

CX,  7 

/number  of  bytes  to  read 

MOV 

DX, Offset  OutBuf 

/ptr  to  destination 

IMT 

21h 

/read  tha  racord 
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RRR2: 


RRR3 : 


-NDP 

t 


CMP 

AX.CZ 

iwaa  tha  raad  eamplata? 

or* 

RRR3 

>  axit  if  MO  arror 

CALL 

CLEAKMESSAOX 

MOV 

CL, [Color] 

; a tor a  original  Color 

MOV 

AL, [Warning] 

i warning  color 

MOV 

[Color] , AL 

jaat  color 

MOV 

AX,0207h 

i row  /Col 

CALL 

OOTOYX 

jaat  curaor 

CALL 

CSTR_OUT 

idiaplay  warning 

db 

■  ERROR  raading  Rank  fila  racord.  * 

db 

"  Praaa  any  kay  to  Abort.  ",0 

MOV 

[Color] ,CL 

iraatora  original  color 

CALL 

BIDE  CUR 

CALL 

ERR  SOUND 

CALL 

GETCHAR 

STC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

READ 

RNXREC 

1  Craata  a  naw  data  fila  from  tha  acannad  anawar  fila. 

;  input  m  nona  (filaa  daaeribad  in  Config  Tabla  aasumad) 

;  output  ■  cf  ■  arror  in  craating  tha  data  fila. 

;  Tha  innar  loop  baginning  a  MAD6:  uaaa  tha  following  ragiatara: 

;  SI  -  ptr  into  Config  tabla  DI  ■  ptr  into  OutBuf 

;  BP  m  ptr  into  quaation  no  atring  in  haap 

i  BX  ■  ptr  into  Input  buffar:  PilBuf  or  SPIBuf  for  a  SF1  fila. 

;  CX  »  atoraa  anawar  total  in  CH  and  numbar  of  anawara  in  CL 

/  DX  ■  tamp  atoraga  of  currant  input  fila  handla. 

i 

PROC  MAKE  DATA  FILE 


PUSH 

AX 

jaava  ragiatara 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

AX,  AX 

; row  0  and  column  0 

CALL 

MENU  BOX 

; draw  top  manu  box 

CALL 

OPEN  ANSWER  PILES 

;opan  anawar  filaa 

JC 

MAD1 

;axit  on  Dos  arror 

, - 

-At  thia 

point  all  anawar  filaa  ara  opan 

with  tha  raad  ptr  ia  at  tha  top 

CALL 

WARNING  MESS 

;Do  you  want  to  cont  ? 

JC 

MAD1 

;if  NO  than  axit 

CALL 

CLEAR  TITLE 

CALL 

DATA  INSTRU 

;diaplay  data  maaa  box 

CALL 

IS  PULL 

;is  room  availabla? 

JC 

MAD1 

;axit  on  diak  full 

MOV 

WORD  PTR  [MaxID] , 0 

;aat  countar  ■  0 

CALL 

OPEN  NEW  DATA  PILE 

;opan  an  aaq>ty  fila 

JNC 

MAD2 

;continua  if  NO  arror 

NADI: 

JMP 

MAD12 

jax it  on  opan  arror 

MAD2: 

CALL 

DELETE  NDX  PILE 

CALL 

DELETE  RANK  PILE 

; - 

-baginning  of  outar  loop  to  raad  ona  ID 

from  tha  SP1  anawar  fila. 

MAD3: 

CALL 

CLEAR  ANSWERS 

; hax  0'a  to  ana  buff ara 

CALL 

READ  SP1 

;gat  firat  ID  &  anawara 

JNC 

MAD4 

;i£  no  arror  contnua 
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JMP 

MAD11 

;fil*  closed  or  EOF 

mad4> 

MOV 

AX, Offset  SPIBuf 

/ptr  to  input  buffer 

CALL 

IS  ID 

7  is  this  a  data  line? 

JNC 

MAD5 

;if  YES  continue 

JMP 

MAD10 

;if  NO  read  next  line 

; - 

-copy  ID 

to  output  buffer 

/else  process  data 

mjD5i 

MOV 

AX,DS 

; assign  ES  to  the 

MOV 

IS, AX 

/ data  section 

MOV 

SI, Offset  SPIBuf 

;ptr  to  ID  name 

MOV 

DI, Offset  OutBuf 

;ptr  to  output  buffer 

MOV 

CX.10 

/no  of  words  to  move 

CLD 

/auto  inc  SI  &  DI 

REP 

MOVSW 

/stove  type  to  Search 

CALL 

DISPLAY  PROGRESS 

/inform  user  of  progress 

; - 

-fin*  matching  ID'*  in  all 

the  answer  files. 

CALL 

LOCATE  ALL  IDS 

JC 

MAD11 

/abort  on  ESC  key 

MOV 

DI, Offset  OutBuf 

*  20 

/ ptr  for  1st  mean 

MOV 

SI,  Offset  CTGTbl 

-  4 

zptr  to  table 

, - 

-beginning  of  inter  loop  to 

compute  means 

for 

on*  ID  number 

MAD  6 : 

ADD 

SI, 4 

/ptr  to  next  type 

CMP 

WORD  PTR  [SI] , 8 

/is  it  EndOfTable? 

JZ 

MAD9 

; OKI  exit  inter  loop 

7 - 

-i*  thi* 

an  answer  file  7 

CMP 

WORD  PTR  [SI] ,6 

/is  it  an  answer  file? 

JNC 

MADS 

/if  NO  continue  loop 

7 - 

-**t  answer  number  pointer 

MOV 

BP, [SI  ♦  2] 

/ptr  to  heap  string 

7 - 

-set  default  values 

XOR 

AL.AL 

MOV 

[DI] , AL 

/set  means  ■  0 

XOR 

CX,CX 

; CH  ■  total  CL  •  items 

l - 

-is  this 

a  self  part  1  file 

7 

MOV 

BX, Offset  SPIBuf 

/in  case  it  is  self  1 

CMP 

WORD  PTR  [SZ] , 5 

/is  it  a  SP1  file? 

JZ 

MAD7 

/if  YES  compute  swan 

; - 

-is  this 

a  self  part  2  file 

7 

MOV 

BX, Offset  SF2Buf 

/in  case  it  is  self  2 

CMP 

WORD  PTR  [SI] ,4 

/is  it  a  SP2  file? 

JZ 

MAD7 

/if  YES  compute  swan 

7 - 

-is  this 

a  peer  file  7 

MOV 

BX, Offset  PERBuf 

/in  case  it  is  peer 

CMP 

WORD  PTR  [SI] , 3 

/is  it  a  PER  file? 

JZ 

MAD7 

/if  YES  compute  swan 

7 - 

-is  this 

a  superior  file  ? 

MOV 

BX, Offset  SUPBuf 

/in  case  it  is  superior 

CMP 

WORD  PTR  [SI] , 2 

/is  it  a  superior  file? 

JZ 

MAD7 

/if  YES  compute  mean 

, - 

-is  this 

a  subordinate  file 

7 

MOV 

BX, Offset  SDBBuf 

/in  case  its  subordinate 

CMP 

WORD  PTR  [SI] , 1 

/is  a  subordinate  file  7 

JZ 

MAD7 

/if  YES  compute  swan 

STC 

/mark  programming  error 

JMP 

SHORT  MAD12 

/exit  this  subroutine. 

7 - 

-get  answer  total  and  number  of  questions 

answered 

MAD7  : 

CALL 

GET  ANSWERS 

/ans.  from  data  buffer 

JC 

MAD8 

/no  matching  ID  in  buf 

ADD 

CL,  AL 

/update  answer  total 

ADD 

CH,  AH 

/update  no  of  answers 

INC 

BH 

/buffer+256*  next  buff 

CMP 

WORD  PTR  [SI] , 4 

/is  PER, SUB  or  SUP  file? 

JC 

MAD7 

/YES  look  for  next  ID 
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l - 

-computa 

and  coda  tha  data  pointa  taaan  tCH  ■  total  CL  ■  i  tarns 

MAOS: 

CALL 

CODI  MEAN 

;  cosqputa  tha  data  point 

1 - 

•a tor*  mu  acora  in  output 

buffar  (axaapla:  hax  15  »  bln  21  or  2.1) 

MOV 

[DI]  ,  AL 

) naans  to  out  buffar 

me 

DI 

JMP 

SHORT  MADS 

/loop  thru  conflg  tabla 

J - 

-Writ*  raeord  to  DAT  £11*. 

MAO  9 : 

MOV 

CZ, [DRacLn] 

/ no.  of  bytas  to  writa 

MOV 

BX, [DATHd] 

/ f 11a  handla  to  BX 

MOV 

AX, 4000h 

/writa  to  fila:  func. 

no. 

MOV 

DX, Off sot  OutBuf 

;ptr  to  data  to  writa 

INT 

21h 

/writa  to  tha  fila 

MAD10: 

CMP 

BYTK  PTR  [SF1SOF] 

,0  /is  it  EndOf  SF1  Fila  ? 

JMZ 

MAD11 

/if  YES  normal  axit 

JMP 

MAD3 

;alsa  loop  thru  SF1  fila 

MAO 11 : 

CLC 

/claar  carry  »  data  OKI 

MAD12 ; 

PU8HF 

; sava  flag  ragistar 

CALL 

CLOSE  ANSWER  FILES 

POPP 

/restora  flag  rasistar 

POP 

DX 

/rastora  ragistars 

POP 

ex 

POP 

BX 

POP 

AX 

RKT 

UNDP 

MAKKDATAFILK 

} 

.CODR 

PROC 

OBT  PATH 

PUSH 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

CMP 

BYTE  PTR  [Path] , 0 

/is  tha  Path  ampty 

JHZ 

OB  PI 

/if  NO  than  display  Path 

Z - 

•gat  da fault  driva 

/if  YES  gat  dafault  path 

MOV 

AH, 19h 

/dafault  function 

INT 

21h 

/gat  dafault  driva 

ADD 

AL,  65 

zconvart  to  cap  lattar 

MOV 

AH, ' » ' 

/placa  ' : '  in  path 

MOV 

SI, Off sat  Path 

/ptr  to  [Path]  string 

MOV 

[SI] , AX 

/placa  driva  lattar 

INC 

SI 

/in  path. 

INC 

SI 

/ptr  to  3rd  by to 

MOV 

AL, ' \' 

/placa  backslash  in 

MOV 

[SI]  ,  AL 

/3rd  byta  of  string 

INC 

SI 

/point  to  4th  byta 

J - 

-gat  dafault  path 

MOV 

AH, 47h 

/ gat  currant  path 

MOV 

DL,  0 

/on  dafault  driva 

INT 

21h 

;gat  path 

QKP1 : 

CALL 

EDIT  PATH 

POP 

DX 

POP 

ex 

POP 

BX 

POP 

AX 

RKT 

KNDP 

ORT_PATH 

; 

z 

Input  ' 

■  laat  path  antarad 

or  dafault  path  in  [Path] 

z 

Output 

■  currant  path  In  : 

Input 
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PROC 

hdit 

PATH 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX,  DS 

MOV 

IS,  BX 

CALL 

PATH  TO  INPUT 

tn ov*  Path  str  to  Input 

CALL 

PATH  MISS  TOP 

CALL 

PATH  MISS  BTM 

jedit  message 

KDT1 1 

MOV 

AX, 0106h 

CALL 

PATH  BDITOR 

;*dit  this  field 

JC 

KDT2 

lexit  on  <lsc>  key 

CALL 

CHICK  PATH 

7  if  valid  save  path 

JC 

XDT1 

7 if  Mot  valid  loop 

JMP 

SHORT  IDT3 

;*xit  path  OXI 

KDT2 : 

CALL 

MHMU  XM8TRU 

;  draw  bottos.  box 

STC 

;  carry  flag  ■  Isc  key 

KDT3  x 

POP 

DX 

; restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

RNDP 

7 

XDIT_ 

PATH 

PROC 

PATH 

MISS  TOP 

PUSH 

AX 

PUSH 

CX 

XOR 

AX. AX 

flT.T. 

MHMU  BOX 

MOV 

CL, [Color] 

MOV 

AX, 0206h 

CALL 

OOTOYX 

MOV 

AL, [Manu] 

MOV 

[Color] , AL 

CALL 

CSTR  OUT 

db 

'lnt*r  th*  directory  path.' 

,0 

MOV 

[Color] ,CL 

POP 

CX 

POP 

AX 

RIT 

SHOP 

} 

PATH 

MHSSTOP 

; 

--remove  all  but  letters  from  the 

field 

and  convert  into  and  ASCXIZ  string 

; 

Input 

*  Mona 

; 

Output  -  Mon* 

i 

Not*: 

fields  are  14  by tea  long  but 

the 

last  byte  is  always  a  hex  0 

t 

therefor*  th*  name  fields 

can 

only  have  13  letters. 

PROC 

FILTHR  PIHLD 

PUSH 

AX 

PUSH 

BX 

7  save  original  str  ptr 

PUSH 

CX 

PUSH 

DX 

MOV 

BX,  Offset  Input 

7 pointer  to  input  str 

MOV 

CX,  12 

; string  length  -  1 

TRIlt 

MOV 

AL, 'A' 

7  is  character  less  than 

CMP 

[BX] ,AL 

7th*  letter  "A"  ? 

JMC 

TRI3 

7  if  yes  remove  character 

TRI2  > 

CALL 

DILXTB  CHAR 

7 shift  string  left 
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DIC 

IX 

/check  saa»  byte  again 

JMP 

8HORT  TRI4 

TRI3  t 

MOV 

AL, '8' 

;is  character  greater 

CMP 

AL, [BZ] 

/than  letter  ? 

JC 

THIS 

/if  yes  remove  character 

TRI4 : 

me 

BX 

/ptr  to  next  byte 

LOOP 

Till 

/check  next  byte 

/ - 

--convert  trailing  spaces  to  hex  0. 

MOV 

CX,  13 

/loop  counter 

MOV 

BX,  Offset  Input  -t-  12 

/ ptr  to  LastByte 

MOV 

AX,20h 

/AH  ■  hex  0  AL  »  space 

TRI5 : 

CMP 

AL, [BX] 

/is  char  a  <spaca>  ? 

JNZ 

TRI6 

/if  no  exit. 

MOV 

[BX] , AH 

/mark  as  end  of  string 

DIC 

BX 

/ ptr  to  last  byte 

LOOP 

TRI5 

/loop  until  beg  of  str 

TRI6  s 

POP 

DX 

POP 

ex 

POP 

BX 

POP 

AX 

RBT 

/ - 

--  delete  a  character  at  the  cursor 

PROC 

DELETE 

CHAR 

POSH 

AX 

POSH 

BX 

/save  original  str  ptr 

DKP1: 

MOV 

AX, [BX] 

/read  ptr  BX  and  BX+1 

CMP 

AH,  0 

/Is  it  the  end  of  str? 

JZ 

DBP2 

/if  yes  then  done. 

MOV 

[BX] , AH 

/place  BX+1  in  BX 

me 

BX 

/point  to  next  byte 

JMP 

SHORT  DBP1 

/loop  until  end  of  str. 

DEP2 : 

MOV 

AH,'  ' 

/place  a  <spaca>  at 

MOV 

[BX] , AH 

/end  of  the  string. 

POP 

BX 

/restore  original  ptr 

POP 

AX 

RHT 

SNDP 

DILUTE 

CHAR 

BMDP 

FILTER 

PIBLD 

Instructions  for  sntsring  ths  path  name. 
Input  ■  Nona 
Output  ■  Hons 


PROC  PATH  KHSS  BTM 


PUSH 

AX 

/save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX,1500h 

/row  21, column  0 

CALL 

MENU  BOX 

/draw  menu  box 

MOV 

AX, 160Ah 

/row  22, column  13 

CALL 

QOTOYX 

MOV 

AL, [Color] 

/get  current  color 

MOV 

CL,  AL 

/store  in  CL 

MOV 

AL, [Menu] 

/set  color  ■  menu 

MOV 

[Color] , AL 

CALL 

CSTROUT 

db 

'Type  the  complete  path  name 

for  the  directory  to  be 

searched. '  ,0 

MOV 

AX,1708h 

/row  23, column  13 

CALL 

QOTOYX 

CALL 

CSTR_OUT 
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HHDP 


db  'Press  tha  <lntar>  kay  to  continua  or  tha  <lac>  kay  for  ' 

db  'tha  Maau. '  ,0 

MOV  [Color] , CL  ; raatora  orig .  color 

POP  DX  t raatora  registers 

POP  CX 

POP  BX 

POP  AX 

RKT 

PATH  MISS  BTH 


--Copy  path  ASCXIZ  atring  in  [Path]  to  [Input] . 

Input  ■ 

none 

Output  i 

■  none 

AX-DX  ragiatar  saved. 

PATH  TO 

INPUT 

POSH 

_AX 

POSH 

BX 

} save  registers 

POSH 

ex 

POSH 

DX 

-fill  [input]  with  68  apacas 

MOV 

AX,DS 

;Make  IS  •  DS 

MOV 

IS, AX 

MOV 

CX,  67 

;nax  number  of  chars 

MOV 

BX, Offset  Input 

i pointer  to  ASCIXZ  atr 

MOV 

AL,  '  ' 

; apace  Al  ragiatar 

MOV 

[BX] , AL 

>0  to  first  byte  of  atr 

MOV 

DX,BX 

;DX  ■  pointer  to  next 

INC 

DX 

jbyts  of  atring 

MOV 

SI,BX 

;SX  m  pointer  to  atr 

CLD 

I auto  inc  DI  and  SI 

RHP 

MOVSB 

/fill  string  with  0's 

-copy  current  [path]  to  [input] 

MOV 

DX, Offset  Input 

; destination  offset 

MOV 

SI, Offset  Path 

; source  offaat 

CLD 

;auto  inc  DI  and  SI 

M0VSB 

;copy  one  byte 

CMP 

BYTB  PTR  [SI] , 0 

; is  next  char  ■  0 

ONZ 

HDTO 

CLC 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

KHDP  PATHTOINPOT 

I 

f -  Oat  an  ASCXIZ  string  input  from  tha  kayboard. 

i  Input  ■  AX  ■  Row/Column  position  on  tha  scraan 

t  [Input]  must  contain  tha  atring  to  ba  aditad  bafora 

l  calling  thia  subroutine. 

;  [inaart]  <>  0  placaa  tha  aditor  in  tha  inaart  mods. 

;  Output  ■  AL  •  Exit  'Char' 

;  ASCI I Z  atring  at  [Input]  in  tha  data  aaction. 

t  BX-DX  ragiatar  aavad 

l  Rota:  tha  follow  ragiatar  hold  tha  following  local  variablaa. 

;  AL  »  Input  Character 

l  BX  m  ptr  in  [Input]  atring 

l  CX  ■  Row/Col  cursor  position 

i  DX  *  Starting  Row/Col  position 
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PROC 


;aave  registers 


PATHEDITOR 
POSH  BZ 


PUSH 

CX 

POSH 

DX 

MOV 

DX,  AX 

OOTOTX 

MOV 

BX, Offset  Input 

MOV 

AX,  BX 

CALL 

DSTR  OUT 

1 - 

fine  first  apaca  in  string 

MOV 

SI,0 

PATA; 

INC 

SI 

CMP 

SI, 67 

JZ 

PATB 

CMP 

BITS  PTR  [BX  ♦  SI] , '  ' 

JNZ 

PATA 

PATB: 

MOV 

CX,SI 

ADD 

CX,DX 

ADD 

BX,  SI 

; - 

-beginning  of  input  loop 

CALL 

PATH  INSERT 

PATO: 

MOV 

AX,  CX 

CALL 

QOTOYX 

CALL 

GKT  TEXT 

l - 

--Return  key 

CMP 

AL, ODh 

JZ 

PATIO 

»— - 

--Is  it 

any  other  control  charactar? 

CMP 

AL, lBh 

JNC 

PAT5 

CALL 

PATH  CONTROL  CHAR 

JMP 

SHORT  PATO 

- - 

■-is  it 

the  <Bsc>  key  ? 

PAT5 : 

STC 

JZ 

PATH 

/ - 

--filter  unwanted  characters 

CALL 

CHAR  FILTER 

JC 

PATO 

? - - 

--check 

the  inaart  mode 

PAI7: 

MOV 

AH, [Inaart] 

CMP 

AH,  0 

JZ 

PATS 

CALL 

SHIFT  STR  RT 

J - 

-  -place 

the  character  in  the  [Input] 

PAT8: 

MOV 

[BX]  ,  AL 

MOV 

AX,BX 

CALL 

DSTR  OUT 

» - 

--sea  if  'and  of  string'  ia  true. 

XOR 

AH, AH 

CMP 

AH, [BX+1] 

JZ 

PATO 

INC 

BX 

INC 

CX 

JMP 

PATO 

PATIO : 

CLC 

PATH: 

POP 

DX 

POP 

CX 

POP 

BX 

RXT 

iaava  row/colusw  in  DX 
raa t  curaor  poaition 
jptr  to  [Input]  Ptr. 

;  [Input]  ptr  to  AX 
; Display  blanka 

; saro  to  SI 
;ptr  to  naxt  char 
; atop  i£  no  apacaa 
;aafty  valua 
;ia  thia  a  apaca  ? 

; if  HO  chack  naxt  char 
/offset  to  CX 
; row/coluam  ptr  to  CX 
/advance  BX  pointer 

;diaplay  inaart  atatua. 
t curaor  poaition  to  AX 
;aat  curaor  poaition 


/is  it  a  <raturn>  ? 

; if  yaa  exit. 

/is  it  a  control  char? 

; jap  m  not  control  char 
;handal  control  char 
; gat  naxt  character 

;aat  carry  flag 
;exit  on  <Bac>  key 


;  carry  flag  ■  not  char 

;get  Inaart  flag 
/Is  inaart  OFF?  ■  0 
; skip  if  turned  off 
/move  raat  of  atr  right 

; place  char  in  [Input] 
;prt  raat  of  string 
» display  string  from 


;Is  'and  of  string'  ? 
;yes«do  not  move  curaor 
; advance  [Input]  ptr. 
/advance  cursor 
;i£  not  continue  input. 
/ claar  carry  flag 


, . Display  the  status  of  the  [Insert]  flag  to  screen. 

I  Input  ■  Nona 
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/ 

Output  ■  Hone 

; 

AX  - 

DX  registers  saved 

PROC 

PATH 

IN3XRT 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DL, {Color] 

MOV 

AL, {HiLite] 

MOV 

[Color]  ,AL 

MOV 

AX, 042 Oh 

CALL 

GOTOYX 

XOR 

AX,  AX 

ADD 

AL, [Insert] 

JNZ 

PAHl 

CALL 

CSTR  OUT 

db 

'  ',0 

JMP 

SHORT  PAH2 

PAHl : 

CALL 

CSTR  OUT 

db 

'<Insert  On>',0 

PAH2: 

MOV 

[Color] ,DL 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RKT 

KNDP 

PATH 

INSERT 

1 

-Check  Control  Characters 

/ 

input  AL  ■  Control  Character 

/ 

BX  m  ptr  in  [input]  string 

/ 

CX  •  Row/Col  cursor  position 

/ 

DX  «  Starting  Row/Col  position 

/ 

Output  jumps  back  to  get  another  character 

PROC 

PATH 

CONTROL  CHAR 

/ - 

-Backspace  key 

CMP 

AL, 08h 

JNZ 

CNNO 

CALL 

BACKSPACE 

/ - 

-Insert  key 

CNNO: 

CMP 

AL, 16h 

JNZ 

CNN1 

PUSH 

AX 

XOR 

AX,  AX 

ADD 

AL, [Insert] 

JZ 

CNNOA 

MOV 

AL,  AH 

JMP 

SHORT  CNNOB 

CNNOA  t 

DIC 

AL 

CNNOB: 

MOV 

[Insert]  ,AL 

CALL 

PATH  INSERT 

POP 

AX 

/ - 

-Home 

key 

cmri : 

CMP 

AL,  lh 

JNZ 

CNN2 

MOV 

BX, Offset  Input 

MOV 

CX,DX 

/ - 

-Knd  key 

CNN2 : 

CMP 

AL,6h 

JNZ 

CNN3 

CALL 

END  STR 

/ - 

-Delete  key 

/save  registers 


;save  current  color 
;set  color  for  insert 
/string. 

/ row  col 
/set  cursor 
/sero  AX 

/get  Insert  fleg 
/<>  0  ■  Insert  node 
/dear  insert  from 
/the  screen. 

/exit. 

/send  the  following 

/string  to  the  screen 
/restore  current  color, 
/restore  registers 


/is  it  a  Backspace  key 
/if  not  continue. 

/del  char  left  of  cur. 

/is  it  the  insert  key? 
/if  not  continue. 

/save  Char 
/xero  AX 

/get  Insert  flag 
/if  zero  jump 
//sake  flag  *  0 
/replace  flag 
/make  flag  *  FFh 
/replace  flag 
/display  insert  status, 
/restore  Char 

/is  it  the  Home  key? 

/if  not  continue. 


/is  it  the  Knd  key? 
/if  not  continue. 


CNM3 1 

CMP 

AL,07h 

/ Is  it  the  delete  key? 

JNZ 

CMN4 

jif  not  continue. 

CALL 

DKLKTK 

; delete  char  at  cursor. 

1 - 

-left  arrow  kay 

CNN4: 

CMP 

AL,13h 

)is  it  a  le£t  arrow  key 

JNZ 

CNN6 

; i£  not  continue. 

CMP 

CX,DX 

ibeginnig  of  the  string? 

JZ 

CNN« 

»yes  ■  beg.  o£  line 

DKC 

BX 

i*o  loop  will  continue. 

DSC 

CX 

t - 

•right  arrow  kay 

CNN  6 : 

CMP 

AL,4 

> Is  it  Rt  Arrow  key? 

JNZ 

CNN8 

;i£  not  jump . 

XOR 

AH,  AH 

CMP 

BTTK  PTR  [BX+1] , 0 

;Is  'end  of  string'  ? 

JZ 

CNN8 

li£  *  0  no  right 

INC 

BX 

; advance  pointer 

INC 

CX 

CNN8: 

RKT 

KNDP 

PATHCONTROLCHAR 

; 

; - 

-nova  cursor  to  and  o£  string 

PROC 

KND  STR 

PUSH 

AX 

CON2A: 

MOV 

AX,  [BX] 

: check  for  end  of  str. 

nip 

AH,  0 

i zero  »  end  of  string 

JZ 

CON2B 

; ret  on  end  of  string 

INC 

BX 

; advance  pointer 

INC 

CX 

; advance  cursor 

JMP 

SHORT  CON2A 

CON2B: 

POP 

AX 

RKT 

KNDP 

KND  STR 

; 

»  — 

-lnsart  a  character  at  the  cursor. 

PROC 

SHIFT  STR  RT 

PUSH 

AX 

;save  new  character 

PUSH 

BX 

;save  str  pointer 

MOV 

AL,  [BX] 

; load  char  to  be  moved 

INC 

BX 

;ptr  to  the  next  char 

SHU: 

MOV 

AH, [BX] 

;load  next  char. 

CMP 

AH,  0 

;is  it  the  end  of  str? 

JZ 

SHI  2 

; if  yes  then  Rxit. 

MOV 

[BX] , AL 

;last  char  in  the  str. 

MOV 

AL,  AH 

;naxt  char  to  last  char 

INC 

BX 

/ptr  for  new  next  char 

JMP 

SHORT  SHI1 

;loop  until  end  of  str. 

SHI2 : 

POP 

BX 

; restore  str  pointer 

POP 

AX 

; restore  original  ptr 

RKT 

KNDP 

SHIFTSTRRT 

t 

J - 

-  delate 

a  character  at  the  cursor 

PROC 

DKLKTK 

PUSH 

AX 

PUSH 

BX 

;save  original  str  ptr 

DKL1: 

MOV 

AX, [BX] 

;raad  ptr  BX  and  BX+1 

CMP 

AH,  0 

; Is  it  the  end  of  str? 

JZ 

DKL2 

;if  yes  then  done. 

MOV 

[BX] , AH 

; place  BX+1  in  BX 

INC 

BX 

t point  to  next  byte 

JMP 

SHORT  DKL1 

;loop  until  end  of  str. 
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DILI : 

MOV 

AH,  '  ' 

; place  a  <space>  at 

MOV 

[BX] ,AH 

; end  of  the  string. 

FOP 

BX 

/ restore  original  ptr 

MOV 

AX,  BX 

jstr  pointer  to  AX 

CALL 

DSTR  OUT 

/ display  string 

FOP 

AX 

RET 

KHDF 

DELETE 

1 

; - 

-  delete 

a  character  to  the 

left  of  the  cursor 

PROC 

BACKSPACE 

PUSH 

AX 

MOV 

AX, Offset  Input 

;is  the  cursor  at  the 

CMP 

AX,  BX 

jbeginnig  of  the  string? 

JZ 

BA3 

/if  yes  ignor  backspace 

DEC 

BX 

/line  pointer  left 

DEC 

CX 

/ cursor  left 

PUSH 

BX 

; save  original  str  ptr 

BA1 : 

MOV 

AX, [BX] 

; read  ptr  BX  and  BX+1 

CMP 

AH,  0 

jls  it  the  end  of  str? 

JZ 

BA2 

; if  yes  then  done. 

MOV 

[BX] , AH 

j  place  BX+1  in  BX 

INC 

BX 

; point  to  next  byte 

JMP 

SHORT  BA1 

/loop  until  end  of  str. 

BA2 : 

MOV 

AH,'  ' 

/move  <space>  to  AH 

MOV 

[BX]  ,  AH 

; place  in  last  position 

POP 

BX 

/restore  original  ptr 

MOV 

AX,  CX 

/row/ column  to  AX 

CALL 

QOTOYX 

/sat  cursor  position 

MOV 

AX,  BX 

/ str  pointer  to  AX 

CALL 

DSTR  OUT 

/display  string 

BA3 : 

POP 

AX 

RET 

HNDF 

BACKSPACE 

; 

; — 

-Filter 

out  unwanted  ASCII  characters  and  capitalize  letters 

? 

Input  ■ 

Char  in  AL 

/ 

Output 

■  Carry  Flag  -  not 

a  good  character,  get  another 1 

PROC 

CHAR  FILTER 

AND 

AL, 7Fh 

/make  0  -  127  ASCII. 

CMP 

AL, '  ' 

/is  it  a  control  char? 

JC 

CHARI 

/if  yes,  get  next  char. 

CMP 

AL, 'a' 

/is  char  a  small  letter 

JC 

CHARO 

/if  not.  Ok  continue. 

AMD 

AL.ODFh 

/change  to  capital  char 

CHARO: 

CLC 

/clear  carry  flag 

CHARI:  RUT 

SNDF  CHARFILTER 

END?  RATH  EDITOR 


Check  [Input]  to  see  if  the  path  ie  Ok l 
Input  ■  AX  ■  Assumed  [Input]  hold  a  Path 
Output  ■  Carry  flag  ie  not  a  valid  path  name 
AX-DX  register  saved. 


CHECK 

PATH 

PUSH  ~ 

AX 

PU3H 

BX 

/save  registers 

PUSH 

CX 

PUSH 

DX 

MOV 

AX,DS 

/Make  ES  ■  DS 
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MOV 


MOV 

SB, AX 

J- - 

rammrs 

all  leading  spaces 

MOV 

BX, Offset  Input 

iptr  to  Input  string 

CHHO: 

CMP 

BYT!  PTR  [BX] , '  ' 

1 is  leading  space  ? 

JMZ 

CBS1 

j if  NO  continue 

MOV 

CX,  68 

jelse  remove  apace 

MOV 

DI.BX 

; offset  to  1st  byte 

MOV 

SI/BX 

INC 

SI 

{Offset  to  2nd  byte 

CUD 

;auto  inc  DI  and  SI 

RIP 

MOVSB 

{Shift  line  left 

JKP 

SHORT  CHSO 

{check  for  leading  space 

» - 

-convert 

first  ASCII  space  to  a  hex  zero  BndofStr 

marker 

CHB1: 

MOV 

CX,  68 

{max  string  length 

MOV 

BX, Offset  Input  -  1 

CHS  2 : 

INC 

BX 

CMP 

BITS  PTR  [BX]  ,  '  ' 

{is  it  a  space? 

JC 

CHS4 

{exit  if  char  <  '  ' 

LOOPNZ 

CHS2 

{is  NO  loop 

1 - 

-remove 

trailing  back  slash 

DSC 

BX 

{ptr  to  last  char 

CMP 

BYTS  PTR  [BX] , *  V 

{is  it  a  back  slash  ? 

JZ 

CHS3 

{if  Yes  remove  from  str 

INC 

BX 

{if  NO  leave  in  str 

-place  : 

after  drive  name? 

HK3 : 

MOV 

AX,BX 

{ptr  in  str  to  ax 

SOB 

AX, Of feet  input 

{String  length  in  AX 

JZ 

CHB4 

{if  OKI  goto  next  test 

CMP 

AX, 3 

{is  less  than  3? 

JNC 

CHS4 

{if  NO  goto  next  test 

MOV 

AX, 003Ah 

{ 3 Ah  ■  '  : ' 

MOV 

BX, Offset  Input  +  1 

{ptr  to  2nd  byte 

MOV 

[BX] ,AX 

INC 

BX 

CHS  4 : 

MOV 

[BX] ,CH 

{mark  HndofStg  -  0 

1 - 

-le  the 

path  valid 

CALL 

IS  PATH 

{is  path  valid  ? 

JNC 

CHS5 

{NOT  carry  ■  OKI 

CALL 

PATH  ERROR 

{display  error  message 

STC 

{set  cf  m  error 

JMP 

SHORT  CHB7 

; - 

-save  valid  path  string  in  [Path] 

CHS  5 : 

MOV 

Si, Off set  Input 

{source  offset 

MOV 

DI, Offset  Path 

{destination  offset 

CLD 

{auto  inc  DI  and  SI 

CHS  6 : 

MOVSB 

{copy  one  byte 

CMP 

BYTB  PTR  [SI] , 0 

{is  next  char  ■  0 

JNZ 

CHB6 

/copy  bytes 

XOR 

AL,  AL 

MOV 

[DI]  ,  AL 

{ zero  m  SndOf string 

CLC 

{dear  carry  flag 

CHK7 : 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

I - 

--Is  this  a  Valid  path? 

; 

Input 

■  ASCI I Z  drive/directory  string  in  [Input] 

i 

Output 

■  carry  flag  in  not  a  valid  path 

i 

AX  -  DX  registers  saved 

PROC 

IS_PATH 
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nm  registers 


PUSH 

AX 

PUSH 

BX 

PU8H 

CX 

PUSH 

DX 

/ - copy  string  to  (Sssrch] 

MOV  SZ, Offset  Input 

MOV  DI, Offset  Sssrch 

CLD 

ISPlt  MOVSB 

CMP  BYT!  PTR  [SI]  ,  0 

JHZ  ISP1 

/ - pises  \ *.*  st  snd  of  string 


MOV 

AX, ' * V 

MOV 

[DI] , AX 

INC 

DI 

INC 

DI 

MOV 

AX, 

MOV 

[DI] ,AX 

INC 

DI 

INC 

DI 

XOR 

AX,  AX 

MOV 

[DI] , AX 

/ - sss  if  path  is  OKI 

MOV  DZ, Offset  Sssrch 

MOV  AX,4R00h 

MOV  CX.OOlOh 

INT  21h 

CMP  AL,3 

CLC 

JNZ  ISP2 

STC 

ISP2 :  POP  DX 

POP  CX 

POP  BX 

POP  AX 

RBT 

UNDP  ISPATH 
I 

/ - Display  Path  error  message. 

/  Input  ■  None 

/  Output  ■  None 

/  AX  -  DX  registers  saved 

PROC  PATHBRROR 

PUSH  AX 

POSH  BX 

PUSH  CX 

PUSH  DX 

MOV  AL, '  ' 

MOV  [BX] ,  AL 

MOV  CL, [Color] 

MOV  AL, [Warning] 

MOV  [Color] ,AL 

MOV  AX,0222h 

CALL  OOTOYX 

CALL  CSTROUT 

db  '  Brror:  Invalid  path. 

CALL  HIDBCUR 

CALL  BRR_SOUND 

call  arr_CHAR 

MOV  AL, [Menu] 

MOV  [Color] , AL 

MOV  AX, 0222h 


{source  offset 
{destination  offset 
{auto  inc  DI  and  SI 
{copy  one  byte 
{is  next  char  m  0 
{copy  bytes 


{ptr  to  ASCIIZ  string 
{Find  function  no. 
{directory  search 
{do  search 
{is  path  BAD  ? 

{dear  carry  flag 
{OKI  if  not  3 
{set  error  flag 
{restore  registers 


{save  registers 


/replace  hex  0  with 

{ a  space 

/save  current  color 
/warning  color 
/set  color 
/row  5  Col  7 
/set  cursor 
/display  warning 
Press  Any  Key.  ',0 


/wait  for  keyboard  key 
/menu  color 
/set  color 
/row  5  Col  7 
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QOTOYX 
CSTR  OUT 


CALL 
CALL 
db 

MOV  [Color] / CL 

POP  DX 
POP  CX 
POP  BX 
POP  AX 
HIT 

SHOP  PATHBRROR 
EMDP  CHECK  PATH 


/set  cursor 
; clear  warning 
,0 

/restore  original  Color 
; raatora  ragiatara 


Salact  a  Salact  a  Kay  £ila. 


Input  m  Nona 

Output  ■  Carry  Flag  if  DOS  Error 
Local  variables: 

BH  ■  hilita  bar  position  #  1  to  14 

BL  ■  starting  directory  number  #  1  to  KaxPile 


PROC 

SELECT 

FILE 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLOSE  ALL  FILES 

CALL 

SET  TYPE 

CALL 

CREATE  MEM  DIR 

JC 

SHL5 

riT.T. 

SELECT  SCREEN 

JC 

SEL4 

/ - 

-display 

the  files 

MOV 

BX, [BarPos] 

SBLO : 

MOV 

AX,BX 

CALL 

DISPLAY  FILES 

SBLl : 

CALL 

GET  CHAR 

CMP 

AL.lBh 

JNZ 

SEL2 

JMP 

SEL4 

SBL2 : 

CMP 

AL, ODh 

JZ 

SHL3 

/ - 

--see  if 

an  active  control 

CALL 

CONTROL  KEYS 

JC 

SBLl 

JMP 

SHORT  SBLO 

/ - 

-Open  configuration  file. 

SEL3: 

CALL 

MOVE  NAME 

CALL 

OPEN  CONFIG 

JC 

SEL5 

MOV 

[BarPos] ,BX 

CALL 

READ  DATE 

CALL 

READ  CONFIG 

JC 

SBL5 

CALL 

OPEN  DATA  FILE 

SBL4: 

CALL 

RELEASE  MEM  DIR 

CLC 

JMP 

SHORT  SBL6 

SEL5: 

CALL 

RELEASE  MEM  DIR 

STC 

SSL6: 

POP 

DX 

POP 

CX 

key  was  pressed 


/ close  any  open  file 
;POS  or  NEG  variables 
/make  a  memory  directory 
; exit  if  error 
j display  salact  screen 
;no  files  in  directory 

/starting  position 
/file  variables  to  AX 
/files  to  screen 
/get  keyboard  input 
/is  it  an  Bsc  key  ? 

/if  not  goto  next  test 
/Exit 

/is  it  a  pick  ? 

/if  YES  exit  loop 


/no  change  get  char 
/redraw  file  window 

/file  name  to  data  sag 
/open  configuration  file 
/ Exit  on  DOS  error 
/save  current  position 
/ get  DOS  date  of  file 
/read  file  into  memory 
/exit  to  main  menu 
/is  data  available? 
/release  mem  block 
/clear  carry  flag 

/release  mem  block 
/error  set  carry  flag 
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POP  BX 

POP  AX 

RXT 

Adjust  the  highlight  bar  position  variables  in  BX  register 
Input  ■  AL  ■  Char  for  the  keyboard 

BH  ■  hilite  bar  position  #  1  to  14 
BL  ■  starting  directory  nuaber  #  1  to  KaxPile 
Output  Carry  Plag  ■  no  change  in  BX 


PKOC 

CONTROL  XXYS 

{ - 

--is  it 

a  Down  arrow  ? 

CMP 

AL,  24 

JNZ 

KYS2 

MOV 

AX,  BX 

ADD 

AH,  AL 

CMP 

[MaxPile] ,  AH 

JC 

KYS10 

CMP 

BH,  14 

JZ 

KYS1 

INC 

BH 

JMP 

SHORT  XYS9 

KYS1: 

INC 

BL 

JMP 

SHORT  KYS9 

I - 

--is  it 

an  Op  arrow  ? 

KY82  > 

CMP 

AL,  S 

JNZ 

KY84 

CMP 

BX, OlOlh 

? 

STC 

JZ 

SHORT  KYS10 

CMP 

BH,  1 

JZ 

KY33 

DEC 

BH 

JMP 

SHORT  KTS9 

KYS3 1 

DBC 

BL 

JMP 

SHORT  KTS9 

> - 

--Is  it 

a  Home  Key  ? 

KYS4: 

CMP 

AL,  1 

JNZ 

KYS5 

MOV 

BX, OlOlh 

JMP 

SHORT  KTS9 

J - 

--Is  it 

a  Bnd  Key  ? 

KYS5: 

CMP 

Al,  6 

JNZ 

KTS7 

MOV 

AH, [MaxPile] 

CMP 

AH,  15 

JHC 

KYS6 

MOV 

BL,  1 

MOV 

BH,  AH 

JMP 

SHORT  KYS9 

KYS6 : 

SUB 

AH,  13 

MOV 

BL,  AH 

MOV 

BH,  14 

JMP 

SHORT  KTS9 

1 - 

--Is  it 

the  PageOp  Key 

KYS7  t 

CMP 

AL,  18 

JNZ 

KYS8 

MOV 

AH,BL 

SOB 

AH,  14 

MOV 

AL,  1 

;is  it  Down  arrow? 

;if  not  goto  next  test 
;get  current  variables 
;inc  hilllite  bar 
;is  it  end  of  file  ? 

;i£  yes  Kxit  no  changes 
; is  bottom  of  window  ? 
;if  yes  inc  starting 
;else  inc  bar  nuaber 
;exit 

{inc  starting  nuaber 
t display  new  directory 

;is  it  Op  arrow  ? 
rif  no  goto  next  test 
{is  it  begining  of  file 

{set  carry  for  ret 
i  if  yes  Kxit  no  changes 
{is  top  of  window  ? 

; if  yes  Dec  starting 
;else  dec  bar  nuaber 
;exlt 

jdec  starting  number 
{display  new  directory 
{go  to  Top  of  Directroy 
{is  it  Hoae  key? 

{if  not  goto  next  test 
{set  top  of  file 
{display  new  directory 
{go  Bottom  of  Directory 
{is  it  Bnd  key  ? 

{if  not  goto  next  test 
{get  nua&er  of  files 
{are  #  of  files  >  14  ? 
{if  yes  jump  to  lastpage 
{Starting  position 
{hilite  last  entry. 


maxfilea-13  *  starting 
store  in  BI< 

hilite  bottom  of  window 
display  directory 

is  it  the  pageup  key  ? 
if  goto  next  test 
starting  #  to  AL 
subtract  14  ■  pageup 
char  for  hoaakey 
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JLB 

KYS4 

jno  goto  bnaiakay 

MOV 

BL.AB 

; changa  paga 

JMP 

SHORT  KYS9 

i diaplay  now  paga 

1 - 

-Za  it 

tha  PagaDn  Bay  7 

XY88 : 

CMP 

AL,  3 

;ia  it  tha  pagadn  kay  7 

STC 

;aat  carry  flag  for  rat 

JMZ 

KY810 

lif  goto  naxt  taat 

MOV 

AH,  BL 

> atarting  #  to  AL 

MOV 

AL, [MaxFila] 

» nuabar  of  dir  filaa 

SOB 

AL,  14 

;ptr  to  top  of  laatpaga 

ADD 

AH,  14 

; paga  a  paga  +  1 

CMP 

AL,  AH 

; ia  thia  tha  laatpaga? 

MOV 

AL,  6 

; char  for  End  kay 

JLB 

KYS5 

7  if  yaa  goto  End 

MOV 

BL,  AH 

;alaa  go  Paga  +  1 

KYS9: 

CLC 

KYS10 t 

RBT 

BMDP 

CONTROLKBYS 

t 

7 - 

-Diaplay  Filaa  in  Mamory  Diractory 

I 

Input 

AL  ■  atarting  diractory  nuabar  (1  to  MaxFila) 

1 

AH  a  hillta  bar  nuabar 

(1  to  14) 

t 

Output 

a  14  lina  of  fila  naaa 

a  to  tha  acraan. 

7 

Motat 

local  variablaa: 

AH  a  non  hillta 

color  attrlbuta 

BZ  m  row/col  DH  ■  hillta  bar  color  attrlbuta 

CX  m  loop  countar  DL  ■  ravaraa  hillta  bar  numbar  (14  to  1) 

Nota:  tba  hillta  bar  countar  atorad  In  DL  la  ravaraad  from  1  to  14 


Into  14  to  1  ao  It  can  ba  coapairad  to  tha  loop  countar  in 
CX  to  aalact  tha  corract  row  to  hillta. 


PROC  DISPLAY  FILBS 


PUSH 

AX 

;aava  ragiatara 

PUSH 

BX 

PUSH 

CX 

POSH 

DX 

MOV 

DL,  15 

fconvart  1  to  14  into 

SUB 

DL,  AH 

j  14  to  1 

MOV 

AH, [Manu] 

j normal  attrlbuta 

MOV 

[Color] , AH 

;aat  dafault  color 

MOV 

DH, [Warning] 

; hillta  bar  attirbuta 

MOV 

BX,0520h 

} row  6/  col  32 

MOV 

CX,  14 

;  nuabar  of  rowa 

DISO: 

CMP 

DL.CL 

; ia  thia  tha  hillta  bar 

JMZ 

DIS1 

»<>  0  ■  no  color  changa 

MOV 

[Color] , DH 

;if  yaa  color  »  warning 

DIS1 1 

CALL 

DIR  STR 

; diaplay  ona  fila  naaa 

CMP 

DL.CL 

;ia  tha  tha  hillta  bar 

JMZ 

DIS2 

;<>  0  ■  no  color  changa 

MOV 

[Color] , AH 

;if  yaa  color  ■  aanu 

DIS2 : 

INC 

BH 

;ptr  to  naxt  row 

INC 

AL 

;ptr  to  naxt  dir  antry 

LOOP 

DISO 

;loop  14  tiaaa 

CALL 

HIDE  CUR 

CLC 

;claar  carry  flag 

DIS3: 

POP 

DX 

;raatora  ragiatara 

POP 

CX 

POP 

BX 

POP 

AX 

RBT 

BMDP 

DISPLAY_FILES 

1 

; - 

--Mo va 

Salactad  fila  Naaa 

from  aaaory  block  to  FilaNa  in  data  aagaant. 
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» 

I 

{ 

{ 


FROC 


MOVOt 


MOV1 : 


HNDP 


FROC 


Input 

BL  ■  starting  dirsetory  nuabar 

(1  to 

MaxFila) 

BH  •  hilita  bar  nuabar  (1  to  14) 

Output 

an  ASCIIZ  fila  naaa  string  in  FilaNa 

in  tha  data  saction. 

movr  min 

PUSH 

AZ 

isava  ragistars 

PUSH 

BZ 

PUSH 

cz 

PUSH 

DZ 

MOV 

AZ/BZ 

; maablk  ptr  to  AX 

ADD 

XL,  AH 

;  start  dir  no  ♦  hilita 

DIC 

AL 

; minus  1  -  maablk  racno 

ZOR 

AH,  AH 

{convart  16  bit  nuabar 

MOV 

CL, 4 

ishift  countar 

SHL 

AZ,  CL 

{2*4  .  timas  16 

INC 

AZ 

;skip  2  landing  spacaa 

INC 

AZ 

MOV 

SI, AX 

{maablk  offsat  to  SI 

MOV 

DI,Of£sat  PilaNa 

{dastination  offsat 

MOV 

AX,DS 

{assign  B8  to  tha 

MOV 

RS,  AX 

{data  saction 

MOV 

AX, [VarSag] 

{aaafclk  basa  ptr 

MOV 

DS,  AX 

{assign  maablk  to  DS 

C LD 

{auto  inc  SI  6  Dl 

MOV 

AL, [SI] 

{gat  first  byta 

CMP 

AL,' .' 

{is  baginning  of  typa? 

JZ 

MOV1 

jaxit  loop  if  yas 

MOVSB 

{ nova  byta 

JMP 

SHORT  MOVO 

{loop  until  bag  of  typa 

MOV 

AX,RS 

{rastora  DS  to 

MOV 

DS,  AX 

{point  to  tha  data  sag 

MOV 

CX,  5 

; nuabar  byta  to  aova 

MOV 

SI,0£fsat  FilTyp 

{point  to  5  byta  string 

RRP 

MOVSB 

{aova  typa  to  FilaNa 

CLC 

{daar  carry  flag 

POP 

DZ 

{rastora  ragistars 

POP 

CZ 

POP 

BZ 

POP 

AZ 

RBT 

MOVRNAMB 

-Display  tha  Salact  a  fila  scraan. 

Input  * 

■  Nona 

Output 

a  Carry  Flag  if  no  FIL  £ilas  in 

currant  diractory 

SRLRCT 

PUSH 

'  AZ 

{sava  ragistars 

PUSH 

BZ 

PUSH 

CZ 

PUSH 

DZ 

ZOR 

AX,  AX 

{row  0, column  0 

CALL 

MXNU  BOX 

{draw  manu  box 

MOV 

AX, OlOBh 

{row  1, column  4 

CALL 

OOTOYX 

MOV 

CL, [Color] 

{sava  currant  color  attr 

MOV 

AL, [Manu] 

{sat  color  ■  manu 

MOV 

[Color] , AL 

CALL 

CSTR  OUT 

db 

'Usa  tha  ',24,'  and  ',25,'  arrow  kays 

to  highlight  tha  ' 

db 

' dasirad  data  fila . ' , 0 

MOV 

AX, 020Fh 

{row  2, column  7 
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CALL 

OOTOYX 

CALL 

CSTROUT 

db 

'Press  the  <Enter>  key  to  select 

the  highlighted  file . ' , 0 

MOV 

AL, [Normal] 

i set  Color 

MOV 

[Color] ,  AL 

CALL 

CLEAR  TITLE 

MOV 

AX, 0405h 

CALL 

OOTOYX 

CALL 

CSTR_OOT 

db 

'Directory  Path  :  ',0 

MOV 

AX, Offset  Path 

CALL 

DSTR  OUT 

MOV 

AX, 1500h 

jrow  21, column  0 

CALL 

MENU  BOX 

; draw  menu  box 

MOV 

AL, [Menu] 

;set  color  »  menu 

MOV 

[Color] , AL 

MOV 

AX,1606h 

;row  23, column  5 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

'Press  the  <Esc>  key  to  return  to 

the  menu  without  ' 

db 

'selecting  a  file.',0 

MOV 

AX,170?h 

irow  23, column  5 

CALL 

OOTOYX 

CALL 

CSTR_OUT 

db 

'The  current  directory  contains: 

'  ,0 

XOR 

AX,  AX 

; sero  AX  register 

MOV 

AL, [Maxfile] 

;load  number  FIL  files 

CMP 

AL,  1 

;is  it  only  one  ? 

JZ 

CEE1 

; is  yes  singular  text 

CMP 

AL,  0 

; is  it  zero  ? 

JZ 

CEE2 

; if  yes  display  error 

CALL 

BIN  OUT 

I else  display  number 

CALL 

CSTROUT 

;of  files. 

db 

■  files  with  a  type  of  '",0 

JMP 

CES4 

cmi: 

CALL 

CSTROUT 

; singular  text  mess. 

db 

■1  file  with  a  type  of  '",0 

JMF 

CEX4 

CBS  2  s 

CALL 

CSTROUT 

; zero  files  statement 

db 

"no  files  with  a  type  of  '”,0 

MOV 

AX, Offset  FilTyp 

CALL 

DSTSOUT 

CALL 

CSTR  OUT 

db 

■' .*,0 

MOV 

AL,  [Naming] 

; warning  color 

MOV 

[Color] , AL 

;set  color 

MOV 

AX, 0506h 

;row  5  Col  7 

CALL 

OOTOYX 

;set  cursor 

CALL 

CSTR  OUT 

; display  warning 

db 

'  No  ',0 

MOV 

AX, Offset  FilTyp 

CALL 

DSTR_OUT 

CALL 

CSTR  OUT 

db 

'  files  found  in  directory 1  Press  Any 

Key  for  ' 

db 

'previous  Menu.  ',0 

CALL 

HIDE  CUR 

CALL 

OET_CHAR 

;wait  for  keyboard  key 

MOV 

[Color] , CL 

; restore  original  Color 

STC 

;set  carry  flag 

JMP 

SHORT  CEE5 

;axit  no  files  found 

; - draw  background  boxas  and  key  diacriptions 

CEE4:  MOV  AX,  Offset  FilTyp 
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; restore  register a 


CALL 

DSTR  OUT 

CALL 

CSTR  OUT 

db 

■'  .",0 

CALL 

SKLXCT  WIHDOM 

ensi 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RXT 

i  — 

draw  file 

diplay  windows  and  key  instructions 

» 

Input  ■  Hone 

i 

Output 

■  Hone 

PROC 

SKLXCT 

WINDOW 

MOV 

AL, [Normal] 

MOV 

[Color] ,  AL 

MOV 

AX, 0804h 

CALL 

OOTOTX 

CALL 

CSTR  OUT 

db 

■<Up  Arrow>  -  Move  Up 

db 

"<Down  Arrow>  ■  Move  Down* , 0 

MOV 

AX, 0A04h 

CALL 

OOTOTX 

CALL 

CSTR  OUT 

db 

"<PageUp>  ■  Scroll  Up 

db 

a<Hame>  ■  First  File.*,0 

MOV 

AX, 0C04h 

CALL 

OOTOTX 

CALL 

CSTR  OUT 

db 

a<PageDn>  *  Scroll  Down 

db 

"<Knd>  -  Last  File.a,0 

; 

--draw  display  windows 

MOV 

AL, [System] 

MOV 

[Color] , AL 

MOV 

AX, 0621h 

MOV 

BX, 1332h 

CALL 

CLKAR  WINDOW 

MOV 

AL, [Menu] 

MOV 

[Color] , AL 

MOV 

AX, 051Fh 

MOV 

BX,1230h 

CALL 

CLKAR  WINDOW 

CALL 

HIDK  CUR 

MOV 

[Color] , CL 

CLC 

RKT 

KNDP 

SKLXCT 

WINDOW 

HHDP 

SBLKCT 

SCRXXN 

KNDP 

SKLXCT 

FILX 

J 


; set  Color 
; row  8  column  4 


a 


;row  10, column  4 


} row  12, column  4 


■ 


; restore  original  Color 
; clear  carry  £lag 


;  Create  a  directory  of  the  FeedBack  files  in  memory. 

;  Input  ■  Hone 

t  Output  ■  Carry  flag  if  DOS  error,  AL  ■  FFh  is  to  many  files 

i  [VarSag]  ■  Starting  segment  address  of  memory  block. 

>  [KaxFile]  ■  total  number  of  FeedBack  files. 

) 

PROC  CRBATBMKMDIR 

PUSH  BX 
PUSH  CX 
PUSH  DX 
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PUSH 

BS 

CALL 

RILHASB  MSN  DIR 

JVC 

CRXO 

/continue  if  no  error 

JMP 

CRB  9 

/exit  on  DOS  error 

CRHOs 

CALL 

COUNT  FILBS 

/how  many  8LDI  files? 

CMP 

AX, 251 

/is  files  found  <  251 

? 

JNC 

CRB1 

/if  no  display  err  mess 

MOV 

[MaxFile]  ,  XL 

/save  number  of  files 

JMP 

CRB2 

/if  yes  OKI  continue 

CRHls 

MOV 

AX, 030Bh 

/ row  3  /  col  1 

CALL 

OOTOYX 

/position  cursor 

CALL 

CSTR  OUT 

/string  to  screen 

db 

'There  are  to  more 

i  than  250  SLD  files 

in  this  directory. ', 0 

MOV 

AX, 0511h 

/ row  3  /  col  1 

CALL 

OOTOYX 

/position  cursor 

CALL 

CSTROOT 

/string  to  screen 

db 

'Please  move  some 

of  them 

to  another  directory. ', 0 

MOV 

AX, 071Ah 

/ row  3  /  col  1 

CALL 

OOTOYX 

/position  cursor 

CALL 

CSTR  OUT 

/string  to  screen 

db 

'Press  Any  Key  to 

Bxit  to 

DOS . ' , 0 

CALL 

HIDB  COR 

/hide  cursor 

CALL 

OBT  CHAR 

/wait  for  keypressed 

MOV 

AL, OFFh 

/to  many  files  marker 

JMP 

CRB  8 

/exit  to  many  files 

CRB2: 

CMP 

AL,  0 

/ were  any  files  found 

? 

JZ 

CRH8 

/if  no  files  Bxit 

CRB  3 : 

CALL 

OBT  DIR  BLK 

/allocate  memory  blk 

JC 

CRB  9 

CALL 

KA1CS  DIR 

JC 

CRB9 

CALL 

SHBLL_SORT 

CRB  8 : 

CLC 

/dear  carry  flag 

CRH9: 

POP 

BS 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

RBT 

SHOP 

CRHATB 

MBMJDIR 

Ihla  a  directory  of  FeedBack  files  in  memory  block  [VarSeg] 

Kach  entry  is  16  bytes.  Formats  2  spaces  +  File  Name  +  padding  spaces  ■  16 
Input  -  [VarSeg]  and  [Search]  in  data  section 
Output  ■  None 


PROC  MAKB_DIR 

POSH  AX 

PUSH  BX 

POSH  CX 

PUSH  DX 

PUSH  OS 

PUSH  HS 

MOV  AX,DS 

MOV  BS,AX 

CMP  MONO  PTR [VarSeg] , 0 

STC 

JZ  COP4 

i - find  first  match 

XOR  BX, BX 

MOV  AX,4B00h 

XOR  CX,CX 

MOV  DX, Offset  Search 


;is  mamblk  allocated  ? 
;set  carry  if  error 
;if  no  memblk  HXIT 

;  zero  file  counter 
/find  a  first  file 
/ordinary  files  only 
;ptr  file  name  ASCIIZ 


A-146 


I  NT 

21h 

; do  the  first  search 

JC 

COP4 

;if  no  match  exit 

set 

up  IS  and  D8  segment  registers 

MOV 

A8/ 62h 

tget  the  current  PSP 

XMT 

21h 

; segment  address. 

JC 

COP4 

/exit  on  error 

MOV 

AX, [VarSeg] 

iptr  to  base  of  memblk 

MOV 

IS, AX 

/ IS  set  to  memory  blk 

MOV 

DS,  AX 

;DS  set  to  memory  blk 

•set 

directory  entry  0  ■  a  blank  ASCII  string 

(16  spaces) 

MOV 

AX, 2020h 

>  two  spaces  in  ASCII 

MOV 

DI,  2 

/distination  ptr 

MOV 

SI,0 

; source  ptr 

MOV 

CX,  7 

/loop  counter 

MOV 

[SI] , AX 

; place  1st  2  bytes 

CZiD 

;auto  inc  SI  &  DI 

RIP 

MOVSW 

/ place  next  14  bytes 

/ - copy  directory  entries  loop 


MOV 

DS,  BX 

;DS  set  to  PSP 

— place 

leading  2  spaces 

COPOs 

MOV 

AX, 2020h 

/ two  ASCII  spaces 

MOV 

[IStDI] , AX 

/ place  in  directory 

INC 

DI 

j advance  directory  ptr 

INC 

DI 

— move  one  file  name 

/ 80h  -  DTA;  llh  -  offset 

MOV 

SI, 9lh 

;DTA  +  offset  -  9lh 

MOV 

CX,  12 

;max  length  of  Name 

MOV 

CX,  12 

;max  file  name  length 

COPls 

MOV 

AL, [SI] 

;load  byte  to  be  moved 

CMP 

AL,  0 

/is  it  end  of  string  ? 

JZ 

COP2 

1  if  end  exit  loop 

CLD 

;auto  inc  SI  fc  DI 

MOVSB 

LOOP 

COP1 

;copy  file  name 

; - 

— pad  end  of  file  name  with 

spaces . 

COP  2 : 

ADD 

CX,  2 

/number  of  bytes 

MOV 

AL, 20h 

/space  to  AL 

CO?3: 

MOV 

[IS :DI] , AL 

/place  space  in  dir 

INC 

DI 

/ptr  to  next  byte 

LOOP 

C0P3 

/loop  until  CX  -  0 

J  -  -  -  - 

— find  next  match 

MOV 

AX, 4F00h 

/fine  next  file  function 

INT 

21h 

/do  next  search 

JNC 

COPO 

/loop  until  all  found 

CLC 

/clear  carry  flag 

C0P4: 

POP 

IS 

POP 

DS 

POP 

DX 

/restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RIT 

KNDP 

MkKIDIR 

1 

--  Allocate  memory  block  for 

the  Director 

of 

files  ( [MaxFile] +2  paragraphs) 

; 

Input 

■  None 

; 

Output  -  Carry  flag  set 

if 

memory  block  is 

not  available. 

; 

Index  file  seg 

address  stored 

in 

[VarSeg] 

; 

Note: 

The  binary  SIARCB  procedure  needs 

a  blank  record  before 

the  memory  index  records.  The  number  of  pargraphs 
needed  is  [MaxFile]  4-  1. 
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PROC 


/save  regist are 


MXMlt 


MHM2: 


KBK3: 


BNDP 


PROC 


RHLO: 


OR  DIR  BUC 

PtTSH  ~AX 

PUSH  BX 

PUSH  CZ 

PUSH  DZ 

MOV  BL, [MaxPile] 

ZOR  BH/BH 

me  bz 

MOV  AH, 48h 

XHT  21h 

JC  MRM2 

MOV  [VarSag] ,AZ 

JMP  SHORT  MHM3 

MOV  CL, [Color] 

MOV  AL, [Warning] 

MOV  [Color] ,AL 

MOV  AZ, OlOlh 

CALL  GOTOYX 

CALL  CSTROUT 

db  '  Hot  anough  memory  for  tha 

db  'Proas  Any  Kay  to  Continuo. 

MOV  [Color], CL 

CALL  HIDH_CUR 

CALL  OKTCHAR 

STC 

POP  DZ 

POP  CZ 

POP  BZ 

POP  AZ 

RKT 

QKT  DIR  BLK 


/get  number  of  filoa 
} zero  high  byto 
; got  an  oxtra  paragraph 
/  allocate  men  function 
; r a qua at  memory  block 
} jump  if  maaory  arror. 
;baso  address  of  sag 
; normal  exit  of  proc. 

/ save  original  color 
/warning  color 
/set  color 
/row  1/Col  1 
/position  cursor 
/sand  string  to  screen 
directory  of  files.  ' 

0 

/restore  original  color 
/hide  cursor  off  screen 
/wait  for  key  is  pressed 
/set  carry  flag  ■  error 


Adjust  the  DOS  memory  block  size  allocation  to  tha  minimum  amount. 
Input  ■  Hone 

Output  ■  Carry  flag  set  if  memory  block  error. 

Hote:  Assumes  the  programs  memory  is  in  a  single  block 

and  tha  stack  segment  is  at  the  and  of  the  program. 


RBLSASB 

MEM 

PUSH 

_AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

HS 

MOV 

AX, STACKSIZB 

MOV 

CL, 4 

SHR 

AX, CL 

INC 

AX 

INC 

AX 

MOV 

CX,  AX 

MOV 

AX,  SS 

ADD 

CX,  AX 

MOV 

AH, 62h 

INT 

21h 

JC 

RBLO 

MOV 

BS,BX 

SUB 

CX,  BX 

MOV 

BX,CX 

MOV 

AH, 4 Ah 

INT 

21h 

POP 

BS 

/save  registers 


/current  stack  sice 
/convert  to  paragraphs 
/divide  by  2A4  or  16 
/round  up  2  paragraphs 
/to  protect  top  of  stack 
/save  in  register  CX 
/gat  stack  sag  address 
/ptr  to  end  of  stack 
/get  the  current  PSP 
/segment  address. 

/exit  on  error 
/ptr  to  current  PSP 
/program  size  in 
/paragraphs  to  BX. 
/release  mem  function 
/release  previous  block, 
/restore  registers 
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■MSP 


POP  DX 

POP  CX 

POP  BX 

POP  XX 

RXT 

ULIASIUM 

Count  the  nuabtr  of  PaadBaek  data  filaa  in  the  cur r act  diractory 
Input  ■  Nona 

Output  •  XX  ■  total  numbar  of  PaadBaek  filaa  found. 

aaauned  any  fila  ending  with  a  . SLD  axt  ia  a  PaadBaek  data  fila. 

Whan  tha  fila  ia  opanad  tha  data  will  ba  validatad. 


PROC 


/ 


COOl: 

J - 


; 


/ 


COOS: 


COOS: 


■MOP 


COUNT  PZUCS 


POSH 

BX 

P08H 

CX 

POSH 

DX 

MOV 

XX,  DS 

MOV 

IS, XX 

copy  Path  to  [Search] 

MOV 

SI, Of feat  Path 

;aourca  off amt 

MOV 

DI,Offaet  Search 

/deatination  offaat 

CXJ) 

; auto  inc  DI  and  SI 

MOVSB 

j  copy  one  byte 

CMP 

BYTB  PTR  [81] , 0 

/ia  next  char  ■  0 

JNZ 

COOl 

; copy  bytaa 

place  ■ 

\s  after  path  naaia 

MOV 

XL,'V 

MOV 

[DI] , XL 

INC 

01 

copy  aaarch  nama  to  and  of  path 


MOV 

SI, offaat  SaarNa 

I aourca  ptr 

MOV 

CX,  13 

; number  of  bytaa 

CLD 

;auto  inc  SI  a  DI 

RBP 

MOVSB 

/copy  all  13  bytaa 

aaarch 

for  key  filaa 

XOR 

BX,BX 

/zero  fila  counter 

MOV 

XX, 4B00h 

/find  a  firat  fila 

XOR 

CX,  CX 

/ordinary  filaa  only 

MOV 

DX, Offaat  Search 

/ptr  fila  naaia  XSCIIZ 

INT 

21h 

/do  tha  firat  aaarch 

JC 

COOS 

/if  no  match  axit 

INC 

BX 

/ found :increare  countar 

MOV 

XX, 4P00h 

/fine  next  fila  function 

INT 

21h 

/do  naxt  aaarch 

JNC 

COOS 

/loop  until  not  found 

MOV 

XX, BX 

/file  count  to  XX 

CLC 

/dear  carry  flag 

POP 

DX 

/rertore  ragiatera 

POP 

CX 

POP 

BX 

RHT 

COUNT 

PILXS 

Pill  tha  nama  fiald  with  13  apacaa  in  tha  data  aaction. 
Input  •  XX  •  pointer  to  fiald 
Output  «  Nona 


PROC  CLXXRPIBLD 
POSH  XX 
POSH  BX 
POSH  CX 


;e ava  ragiatera 
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PUSH 

DZ 

MOV 

BZ,AZ 

;ptr  to  field. 

MOV 

AZ,DS 

;Make  BS  -  DS 

MOV 

BS,  AZ 

MOV 

<3,12 

; restore  length  of  str 

MOV 

AL, '  ' 

; place  a  space  in  first 

MOV 

[BZ] , AL 

;byte  of  [Input]  string. 

MOV 

DI,BZ 

;DI  a  pointer  to  next 

INC 

DI 

;byte  of  string 

MOV 

81, BZ 

; SI  a  pointer  to  str 

CLD 

; auto  inc  DI  and  SI 

RBP 

MOVSB 

;fill  str  with  spaces 

POP 

DZ 

; restore  registers 

POP 

CZ 

POP 

BZ 

POP 

AX 

RHT 

CLBAR 

PIBLD 

Sort  the  Memory  Index  Records. 

Input  ■  expects  the  IS  byte  index  records  to  be  loceted  et  address 
pointer  [IdxSeg]  and  the  number  of  record  to  be  [KaxRec] 
Output  b  None 

Note:  this  routine  reassigns  the  DS  and  BS  registers  to  point  to  the 
Index  rile  in  memory.  Record  0  is  not  sorted.  The  sort  is 
from  record  1  to  KaxRec.  A  blank  record  in  record  0  is  needed 
for  an  ASCII  string  when  performing  a  binary  search. 

The  memory  index  record  length  is  16  bytes. 

The  sort  is  based  on  the  first  10  bytes. 

This  sort  is  based  on  the  following  TP AS CAL  procedure: 

FROCBDURS  Sort;  {A  Shell  Sort} 

VAR 

Gap,J  :  Integer: 

Tamp  :  string [13]; 

TempNo  :  Integer; 

Begin 

Gap  : a  KaxRec  Div  2; 

While  gap  >  0  Do 
Begin 

For  I  : a  (Gap  +  1)  to  KaxRec  Do 
Begin 

J  : a  I -Gap; 

While  J  >  0  Do 
Begin 

If  A[J]  >  A [J+Gap]  then 
Begin 

Temp  :  a  A  [  J] ; 

A [ J]  : a  A [J+Gap] ; 

A [J+Gap]  :a  Tamp; 

J  : a  j-Qap; 

Bnd 

Blse  J  :a  0; 

Bnd; 

Bnd; 

Gap  :aGap  DIV  2; 

Bnd; 

Bnd; 

The  follow  registers  hold  the  above  variables: 
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U  -  Gap?  BX  -  J 1  CX  -  Ij  DX  -  MaxRac 7 

and  BP  •  taap  storage 

proc 

SHELL  SORT 

POSH  AX 

POSH  BX 

POSH  CX 

POSH  DX 

POSH  DS 

POSH  HS 

POSH  BP 

; save  registers 

MOV  DL, [MaxPile] 

7  store  MaxRac  in  DX 

XOR  DH,DH 

7iero  high  byta 

MOV  AX, [VarSeg] 

j gat  Indax  basa  segment 

MOV  DS,  AX 

7 reassign  the  DS  6  XS 

MOV  XS, AX 

7 to  ptr  to  the  Index. 

MOV  AX,DX 

7 Gap  ■  MaxRac 

SHR  AX, 1 

7 Gap  ■  Gap  Div  by  2 

SHBLl : 

CMP  AX,  0 

7 when  Gap  ■  0  exit. 

JLX  SHHL4 

t exit  if  <*  0 

MOV  CX,  AX 

7 I  is  stored  in  CX 

INC  CX 

; I  -  Gap  +  1 

SHXL2  t 

MOV  BX, CX 

7 J  in  BX 

SOB  BX,  AX 

7  J  ■  I  -  Gap 

JZ  SHKL3 

7 skip  if  J  ■  0 

JC  SHHL3 

7 skip  if  J  is  <  0. 

CALL  COMPARX  SWAP 

7 repeat  until  J  »  0 

SHKL3 : 

INC  CX 

7l  ■  I  ♦  1 

CMP  DX, CX 

;Is  I  <  or  ■  MaxRac 

JNC  SHKL2 

7 If  yes  then  loop. 

SHR  AX,  1 

JMP  SHORT  SHXL1 

7Gap  ■  Gap  Div  by  2 

SHXL4 : 

POP  BP 

POP  XS 

POP  DS 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

7 restore  registers 

RKT 

7 sort  is  complete. 

1 

; - 

•Cupar*  and  swap  Indax  strings  if  naadsd. 

; 

Not#:  This  is  a  subroutine  of  SHXLL  SORT. 

The  index  file  record 

i 

length  is  16  bytes.  Tha  sort  is  made  on  tha  first  6  bytas.  1 

1 

; 

Input  ■  AX  ■  Gap;  BX  ■  J;  DS  &  XS  point 

to  the  base  of  indax  file. 

i 

Output  ■  AX  •  Sap;  CX  ■  I;  and  DX  ■  MaxRac 

are  returned  on  changed. 

i 

BX  ■  J  is  discarded. 

i 

PROC 

COMPARX  SNAP 

POSH  AX 

POSH  CX 

POSH  DX 

7 save  registers 

MOV  DX, AX 

7  save  Gap  in  DX 

7 

Caspars  tha  first  six  bytas  of  aach  indax 

record 

COMP1: 

MOV  BP, BX 

7 save  J  in  BP 

ADD  AX, BX 

7 AX  «  J  +  Gap 

MOV  CL, 4 

; shift  counter  j 

SHL  AX, CL 

7 ptr  to  J+Gap  in  mem 

SHL  BX, CL 

7ptr  to  J  in  mem 

CLD 

7auto-inc  SI,  DI 

MOV  DI, AX 

7 offset  of  J  +  Gap 

MOV  SI , BX 
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7offset  of  J 

MOV 

CX,10 

/ byta  countar 

RRPR 

CMP8B 

l compara  atrlnga 

JU 

COMP  3 

; axlt  If  <  or  a. 

1 

Swap  tha  16  bytes  of  indax  racord  If  atrlng  A  > 

atrlng  A+Qap 

MOV 

DI,AX 

i offaat  of  J  ♦  Oap 

MOV 

SI.  BX 

joffset  of  J 

MOV 

CX,  8 

jword  countar 

COMP 2 i 

MOV 

AX, [SI] 

i raad  word  aach  atr. 

MOV 

BX, [DI] 

MOV 

ISI],BX 

;wrlta  word  aach  atr. 

MOV 

[DI]  ,  AX 

INC 

DI 

; point  to  naxt  word 

INC 

DI 

INC 

SI 

j point  to  naxt  word 

INC 

SI 

LOOP 

COMP  2 

>loop  fiva  timaa 

MOV 

AX,DX 

; raatora  gap  to  AX 

MOV 

BX,BP 

;raatora  J  to  BX 

SUB 

BX,  AX 

; J  a  J  -  gap 

JZ 

COMP3 

;axit  if  J  a  0. 

JNC 

COMP1 

;continua  if  J  >  0. 

COMP 3 : 

POP 

DX 

j raatora  ragiatara 

POP 

CX 

POP 

AX 

RKT 

/return  to  Shall  Sort 

KNDP 

COMPARE 

SNAP 

UNDP 

SHKLLSORT 

/ 

» - 

•Sand  a 

16  byta  mamory  dlractory  antry  to  tha  Scraan 

l 

Input  a 

AL  >  DlrPlla  number  (0  to  Maxfila)  0 

■  blank  diractory  antry 

1 

BX  a  row  /col 

} 

[Maxilla]  a  tha  nunbar  of  diractory  antrias  In  tha  mamory  dir 

l 

[VarSag]  a  aagmant  addrasa  of  tha  baaa 

of  tha  mamory  diractory 

; 

Output 

■  ASCIZZ  atrlng  aant  to  tha  acraan 

9 

PROC  DIR  STR 

PUSH 

AX 

;aava  ragiatara 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

1 - 

-coinput  a 

dirfila  offaat 

XOR 

AH,  AH 

; AX  m  Dirlila  number 

CMP 

[Maxilla] , AL 

j ia  Dirlila  *  OK  ? 

JNC 

DIRO 

i if  in  bounda  jump 

MOV 

AL,  AH 

/else  maka  blank  fila 

DZRO: 

MOV 

CL,  4 

; shift  4  a  timaa  16 

SHL 

AX, CL 

/multi  by  16 

MOV 

SI, AX 

; ASCIIZ  massaga  ptr  SI 

MOV 

AX,BX 

; row/ col  to  AX 

CALL 

OOTOYX 

; position  cursor 

MOV 

DI, Offaat  Input 

;ptr  to  input  string 

MOV 

AX,DS 

; place  data  sag 

MOV 

IS, AX 

;in  tha  IS  register. 

MOV 

AX, [VarSag] 

; place  tha  mamory  blk 

MOV 

DS,  AX 

;seg  in  DS. 

MOV 

CX,  8 

; 8  words  -  16  bytes 

CLD 

RIP 

MOVSN 

MOV 

AX,  IS 

; restore  rag  DS  to 

MOV 

DS,  AX 

; point  to  data  segment. 

XOR 

AL,  AL 

; place  xaro  in  string 

MOV 

[DI] ,AL 

;as  BndOf String  starker 

A- 152 


MOV 

AX, Offset  Input 

iptr  to  input  string 

CALL 

DSTR  OUT 

;  sand  nan*  to  th*  screen 

POP 

DZ 

POP 

CZ 

POP 

BZ 

POP 

AZ 

RRT 

RMDP 

DIR8TR 

I 

1 

Input  a 

non* 

I 

Output  a  non* 

PROC 

print  wait  mss 

PUSH 

AZ 

PUSH 

BX 

PUSH 

CZ 

PUSH 

DZ 

; - 

-plana*  wait  a***ag*  to  *er**n. 

CALL 

CLXAR  mSSAOl 

MOV 

CL, [Color] 

;sava  original  attri 

MOV 

AL, [Warning] 

j warning  color 

MOV 

[Color] ,  AL 

;s*t  color 

MOV 

AX, 020Bh 

jrow  3/Col  12 

CALL 

QOTOTX 

;s*t  cursor 

CALL 

CSTR  OUT 

} display  warning 

db 

MOV 

AZ,  Offaat  PilaHa 

CALL 

DSTR  OUT 

CALL 

CSTR  OUT 

db 

'  ',0 

MOV 

[Color] ,CL 

> restore  original  attri 

fST.T. 

HIDR  CUR 

CLC 

POP 

DZ 

POP 

CZ 

POP 

BZ 

POP 

AZ 

RBT 

RMDP 

PRINTWAITMRSS 

t 

;  Raltaa*  tha  a 

■amory  directory  and  variable 

blocks . 

j 

Input  a 

Mona 

t 

Output  a  Carry  flag  if  DOS  arror 

i 

[VarSag: 

a  Starting  segment  addraaa 

of  directory  block. 

i 

[VarSag: 

a  starting  segment  address 

for  variable  block. 

i 

[MaxFila]  a  total  number  of  FaadBack 

files. 

PROC 

RILRASR 

MBM  DIR 

PUSH 

BZ 

PUSH 

CZ 

PUSH 

DZ 

PUSH 

HS 

XOR 

AZ,  AX 

;sero  AX 

CMP 

[VarSag]  ,AX 

; is  VarSag  assigned? 

JZ 

RHL2 

;if  not  assigned  go  on 

1 - 

--ralaaaa  aaaignad  memory  block 

MOV 

AZ, [VarSag] 

igat  memory  sagmant 

MOV 

BS,  AZ 

; place  in  RS  register 

MOV 

AX, 4900h 

; ralaaaa  funedtion  no 

1ST 

21h 

/release  maaory  block 

JC 

RRL2 

;if  No  arror  continue 

/ - 

■ -initialise  variablas 

MOV 

AX, OlOlh 

;s*t  barposition  to 
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RKL2  i 


KNDP 


MOV  [BarPos]  ,U 

ZOi  U,U 

MOV  [VarSag] ,AZ 

MOV  [MaxFila]  ,  XL 

nj' 

POP  BS 

POP  DX 

POP  CX 

POP  BX 

HIT 

RBLBASB  MBM  DIR 


> start  ■  I  hi light  ■  1 
; *aro  to  ragiatar 
/sat  WMKiry  bock  to  0 
i  sot  maxfilas  to  0 
/ clear  carry  flag 

{r as tor a  ragiatara 


Raad  tha  fllaa  DOS  data  to  tha  [Data]  string 
Input  m  Nona 

Output  ■  filas  data  to  [Data] 


PROC 


/ 


DOS  2 : 


PROC 


RBAD 

DATS 

PUSH' 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

DX 

MOV 

BX, [CTGHd] 

CMP 

BX,  0 

JZ 

DOS  2 

MOV 

AX, 5700h 

nrr 

21h 

JC 

DOS  2 

MOV 

BX,DX 

AND 

BX, OlFh 

MOV 

CL, 5 

SHR 

DX,  CL 

MOV 

AX,DX 

AMD 

AX,OFh 

MOV 

CL, 4 

SHR 

DX.CL 

AND 

DX, 03Fh 

ADD 

DX,  80 

MOV 

CX,  BX 

convart  to  ASCII 
MOV  BX, Off sat  Data 

CALI,  CONVBRTASCII 

MOV  AX, CX 

MOV  BX, Off sat  Data  *  3 

CALL  CONVBRTASCII 

MOV  AX,DX 

MOV  BX,Of fsat  Data  +  6 

CALL  CONVBRTASCII 

CLC 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RBT 

-Convart  hax  numbar  into  2  digit  ASCII  nuabar. 
Input  •  AX  ■  hax  nuabar 

BX  ■  ptr  in  [Data] 

Output  ■  two  byta  nuabar  into  [Data]  string 

COMVBRT_ASCII 
PUSH  AX 


I load  fila  handla 
lis  a  fila  op an 
/if  not  axit 
/ gat  data  staap  funct. 
/gat  staap 
;if  DOS  arror  Xxit 
; compos ita  to  gat  day 
/isolata  day 
>shift  countar 
;month  to  bits  0  to  3 
/ coaposita  to  gat  month 
{isolata  month 
/shift  countar 
{yaar  to  bits  0  to  5 
{isolata  yaar 
{add  basa  yaar 
{Stora  day  in  CX 
{ AX-Mon , CX*day , DX>yaar 
/ptr  to  Data  string 
{placa  month  in  string 
{day  of  month  to  AX 
;ptr  to  day  saction 
{placa  day  in  Data  str 
/placa  yaar  in  AX 
/ptr  to  yaar  saction 
/placa  yaar  in  Data  str 
/claar  carry  flag 
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PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CMP 

AX, 100 

j is  it  a  2  digit  number? 

JC 

COV1 

/if  yes  continue  else 

XOR 

AX, AX 

/set  number  to  00 

COVli 

MOV 

CL,  10 

/ divisor 

DIV 

CL 

i AX/10 

OR 

AX, 3030h 

/convert  to  ASCII 

COV2  i 

MOV 

[BX] ,  AX 

/place  in  Date  string 

CLC 

/clear  carry  flag 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RHT 

RHDP 

COHVHRT 

ASCII 

BNDP 

/ 

RRADDATB 

J - 

--Set  search  file  name 

variables 

for  file  type  . NSQ  or  .POS 

/ 

Input  ■ 

AX  ■  none 

t 

Output  ■ 

■  Adjust  the 

following 

strings  [FilTyp] ,  [FileNa]  and  [SearNa] 

I 

PROC  SBTjrYPH 

PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  AX, DS 

MOV  KS, AX 

MOV  BX, Offset  CPOtyp 

STTlt  MOV  DX,  2 

rT.n 

MOV  DZ, Of feet  FilTyp 

MOV  SI,BX 

MOV  CX, DX 

RXP  MOVSW 

; clear  carry  flag 
MOV  DI, Offset  FileNa  +  8 

MOV  SI,BX 

MOV  CX.DX 

RHP  MOVSW 

; clear  carry  flag 
MOV  DI, Offset  SearNa  +  8 

MOV  SI,BX 

MOV  CX, DX 

RBP  MOVSK 

/ clear  carry  flag 

POP  DX 

POP  CX 

POP  BX 

POP  AX 

RBT 

JBNDP  SRTTYPB 

I 

} 


I 

.DATA  ?the  data  segment. 

RrrCode  db  0  jret  error  msg  to  DOS 

/note:  If  Debug  is  OH  the  printing  time  will  be  twice  as  long. 


;set  BS  -  DS 

/ptr  to  CFO  string 
;save  byte  counter 
;auto  inc  SI  6  DI 
/destination  pointer 
/source  pointer 
/loop  counter  ■  2 
/move  two  Words 

/destination  pointer 
/source  pointer 
/loop  counter  ■  2 
/move  two  Words 

/destination  pointer 
/source  pointer 
/loop  counter  ■  2 
/move  two  Words 
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Debug  A  0 

Tint  db  0 

Others  db  0 

t 

; video  data 
Vidmode  db  0 

vidpage  db  0 

vidcurs  dw  0 

vidfont  dw  0 

vidattr  db  07h 

vidbord  db  07h 

} 

/Color  variables 
Color  db  07h 

System  db  07h 

Menu  db  0 

Normal  db  07h 

HiLite  db  0 

MenuMes  db  0 

Warning  db  0 

Border  db  0 

l 

/Memory  Block  variables 
VarSag  dw  0 

TopBar  dw  1 

HiBar  db  15 

MaxFile  db  0 

MaxDim  db  0 

BarPos  dw  OlOlh 


/file  types 

CFOTyp  db  '.CFO' ,0 

DATTyp  db  ' .DAT' , 0 

RMKTyp  db  ' . RNK' , 0 

NDXTyp  db  '.NDX',0 

SFITyp  db  '.SP1',0 

SF2Typ  db  ' . SF2 ' , 0 

FKRTyp  db  '.PIR',0 

SUPTyp  db  '.SUP',0 

SUBTyp  db  '.SUB',0 

FilTyp  db  0 

/file  names 

FileNa  db  '???????? .SLD' , 

SearNa  db  ’ 77? 7777? .SLD' , 

I 

/file  handles 

CFQHd  dw  0 

DATHd  dw  0 

RNKHd  dw  0 

NDXHd  dw  0 

/note  do  not  change  the  order 

/Procedure/  MAKI_DATA_FXLB  in 

SBBHd  dw  0 

SUFHd  dw  0 

PKRHd  dw  0 

SF2Hd  dw  0 

SFIBd  dw  0 

/file  variables 
FileOr  db  0 


>  0  -  OFF  Other  -  ON 
/ 0  *  dark  Other  ■  light 
/0  a  FALSI  Other  -  TROT 


/video  mode 
/video  page 
/cursor  type 
/font  sise 

/default  Lt  White/Black 
/border  color 


/active  color 
/default  Lt  Nhite/Black 
/Menu  main  color 
/Main  display  screen 
/display  screen  titles 
/ menu  messages  line 
/accent  color 
/display  screen  box 


/seg  of  var  mam  block 
/used  to  display  ids 
/which  id  to  highlite 
/number  of  files  0-250 
/number  of  dimensions 
/position  of  hilite  bar 

zconfig  file  type 
/data  file  type 
/rank  file  type 
/index  file  type 
/self  part  1  answers 
/self  part  2  answers 
/peer  answers 
/superior  answers 
/ subordinate  answers 
/File  type  holder 

/ASCIIZ  file  name 
/ASCXIZ  file  name 


/config  file  handle 
/data  file  handle 
/  rank  file  handle 
/index  file  handle 

of  the  following  five  answer  file  handles 

FBF.ASM  uses  these  handles  as  a  lookup  file 

/subordinates  handle 
/superiors  file  handle 
/peer  file  handle 
/self  part  2  handle 
/self  part  1  handle 


/0  -  default,  1  ■  A  etc 
/ 0  -  FALSI  Other  -  TROT 
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SPltOP 

db 

0 

{0  -  FALSE  Other  -  TRUE 

Tima 

dw 

0 

{Store  clock  tick  count 

MaxID 

dw 

0 

{ num  of  ID's  in  DAT  file 

DRecLn 

dw 

0 

{DAT  record  length 

NDXLn 

dw 

0 

{expected  size  NDX  file 

RNKLn 

dw 

0 

{expected  size  RNK  file 

> table  used  to  point  to  configuration  data  atringa  atorad  on  the  heap 
;each  entry  ia  4  bytes.  The  first  word  identifies  the  type  of  information  and 
fthe  next  word  is  a  pointer  to  ita  location  on  the  heap.  All  the  data  in  the 
> haap  ia  stored  in  asciis  format.  The  quaetion  numbers  are  atorad  as  byte 
» integer  strings  ending  with  a  hex  0.  Type  identification  era: 

;8  ■  and  of  table.  7  ■  group  title.  6  ■  factor  title 
; 5  ■  sri  hex  question  numbers,  4  ■  SF2  hex  question  numbers, 
t 3  »  PER  hax  question  numbers,  2  ■  SUP  hex  question  numbers, 

; and  1  *  SUB  hax  question  numbers 

CFOTbl  dw  320  DUP  (Oh), Oh  j 

;Order  of  values  in  the  Ranh  file:  bytes:  Lowest,  Highest,  Median,  25%,  75%  and 
{word:  offset  in  buffer  of  the  mean  score,  (add  offset  to  base  to  locate  mean) 
t 


{buffers  used  for  file  reads  and  writes: 


Filbuf 

db 

256 

DUP 

(Oh), Oh 

{buff  for  reading  files 

OutBuf 

db 

256 

DUP 

(Oh) , Oh 

{buff  for  writing  files 

SFIBuf 

db 

256 

DUP 

(Oh) ,0h 

{buff  for  Self  I  data 

SF2Buf 

db 

256 

DUP 

(Oh) ,0h 

{buff  for  Self  II  data 

PERBuf 

db 

2048 

DUP 

(Oh) ,0h 

{buffer  for  8  Peer  lines 

SUPBuf 

db 

2048 

DUP 

(Oh) ,0h 

{buf  8  Superior  lines 

SUBBuf 

db 

2048 

DUP 

(Oh) ,0h 

{buf  8  Subordinate  lines 

{Printer  port  (the  program  expects  an  HP  Laser  Jet  assigned  to  a  parallel  port) 
LPT  dw  0  {default  ■  LPT1 

{0  ■  LPT1,  1  -  LPT2,  &  3  -  LPT3 
J 

{Path  Kditor  variables 

Path  db  82  DUP  (Oh) 

Input  db  82  DUP  (Oh)  {input  ASCIIZ  string. 


Search 

db 

82  DUP  (Oh) 

Digit 

db 

1 

»0 

-  OFF 

Other 

-  ON 

Insert 

db 

0 

{0 

-  OFF 

Other 

-  ON 

BndFld 

db 

0 

;  o 

-  OFF 

Other 

-  ON 

» 

{Sound  string 


Baep  dw  6000,2,4500,2,0 

.CODK 

MAIN: 

, - Determine  Color  and  graphics  Mo  da 

MOV  AX.Bdata 

MOV  DS.AX 

CALL  COLORMODK 
CALL  TBXTVIDHO 
{ - Main  procedure  for  FeedBack 


CALL  INTHRRUPTHANDLER 

CALL  RBLKASB_MKM 
JC  Hrror 

CALL  MAIN  MHNU 


JC  A.rror 

CALL  CL0SH_ALL_FIL8S 

JC  Hrror 

{ - Exit  to  DOS 

Bxit :  CALL  RBST0R8  VIDHO 


MOV  AL, [HrrCode] 


{the  code  segment 


{get  data  segment 
{put  in  data  segment  reg 
{define  default  colors 
{save  default  settings 

{ INT23  &  INT24  handlers 
{release  unused  memory 
{display  Dos  error 
{ Program' s  MAIN  LOOP 
{display  Dos  error 
{dose  any  open  files 
{display  DOS  error, 
{program  always  ends 
{restore  users  settings 
{load  errorlavel  number 
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i  Exit  function  niahr 
; return  to  DOS 

;■ how  DOS  axtaad  arror 


MOV  AH,4Ch 

HR  21h 

l - - -Sad  of  Main  proeoduro  for  raadBack 

Error i  CELL  DZ3PLETERSOR 

JMP  SHORT  Exit 

} - gad  of  tha  aourca  coda 

END  MAIM 
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